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..COMPUTE haben wir, lieber Leser, speziell auf die Commodore- und Schneider- (hier der CPC 464)-Com- 
puter zugeschnitten. Nachdem sich schon im Herbst 1984 auf dem deutschen Computer-Markt abzuzeichnen schien 
daB der CPC 464 nach einem nahezu kometenhaften Aufstieg gute Chancen besitzt, dem Giganten Commodore ein 
ernstzunehmender Konkurrent zu werden. wurde unser Team nahezu gezwungen, diesen Trend aufzunehmen und auch 
weiterhin zu verfolgen. D. h., fur beide popularen Homecomputer-Riesen werden wir in jeder Ausgabe von „C0 M PUTE 
MIT...“ ein attraktives Angebot bereithalten. AuBerdem bietet unsere Redaktion einen Super -Service an, urn Ihnen 
eventuelle schwierige Abtippereien zu ersparen. Mehr daruber auf Seite 11! 
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COMPUTERSCHAU ’85 


Die diesjahrige Hobby-tronic-Messe 
in Dortmund vom 20.-24. Marz stand 
vollig im Zeichen der ersten Ausstel- 
lung von Computern, Computerzube- 
hor und Computersoftware. Die Aus- 
stellungsteitung hatte sich dem alige- 
meinen Trend des Freizeitmarktes 
angepaBt und fur den immer groBer 
werdenden Kreis der Computerfreun- 
de eine gesonderte Schau in Halle 4 
des Messegefandes aufgebaut. 

An Ort und Stetle konnten wir uns 
iiberzeugen, wie groB das Interesse 
der Messebesucher an diesen S tan- 
den war. Leider wurden wir, was das 
Neueste in der Mikroelektronik be- 
trifft, arg enttauscht. Zwar wurde eine 
Vielzahl von Produkten vorgestellt 
und zum Verkauf angeboten, ein ab- 
soluter 1( Messerenner“ jedoch fehlte. 
So war es dann auch nicht verwun- 
derlich, daB hauptsachiich die Stan- 
de mit Software-Angeboten stark 
umiagert waren. Hier land der Kunde 
fur alie popularen Heimcomputer eine 
Vielzahl von Spiel- und Anwen- 
dungsprogrammen, sodaB einem bei- 
nahe scbon der Oberblick uber dieses 
Riesensortiment verloren ging. Dane- 
ben waren besonders stark verschie- 
dene Kaufhauser vertreten. An diesen 


Standen wurden Fachabteilungen 
gebildet und jedes Gomputersystem 
wurde gesondert vorgestellt und er- 
lautert. Der „ Newcomer" in der Ho- 
mecomputer-Szene hatte hier die 
Gelegenheit, sich genauestens uber 
Vor- und Nachteile der einzelnen Sy- 
steme zu informieren und konnte 
Preis-, Leistungsvergleiche anstel- 
len. Die Vielzahl der vertretenen 
Handlerfirmen entfachten wahrend 
der Ausstellung einen starken Wett- 
bewerb untereinander. Lachender 


report. 

Dritter waren hier die Messebesu¬ 
cher, die zu gunstigen Preisen Com- 
puterzubehor wie Software etc. erwer- 
ben konnten. 

Ein anderer haufig vertretener Be- 
reich auf dieser Ausstellung waren die 
Buch- und Zeitschriftenverlage. Auch 
hier hatte der Verbraucher die Mog- 
iichkeit, sich vor Ort uber die Fuile 
von Fachliteratur zu informieren. 

Ein positiver Aspekt dieser Messe 
waren die zahlreichen Informations- 
veranstaitungen und der Wettbewerb 
Jugend programmiert“. Hier hatte 
sich die Veranstaftungsleitung Muhe 
gegeben und versucht, die Jugendli- 
chen versfarkt in den Messebetrieb 
mit einzubeziehen. 

Als auBerst negativ zu bemerken ist, 
daB die groBen Homecomputer-Her- 
steller wie Commodore, Atari Oder 
Sinclair nicht durch eigene Stande 
vertreten waren. Wie wir erfahren ha- 
ben, sind alle prominenten Hersteller 
erst wieder auf der Hannover-Messe 
vertreten, und haben wohi deshalb 
auf die Publikation der neuesten Pro¬ 
duce in Dortmund verzichtet. 

Fazit: Wer als Laie diese Veranstal- 
tung aufsuchte, konnte sich einige 
wichtige Informationen aus der Ho- 
mecomputer-Branche mitnehmen. 
Wer billig Computerzubehor erwerben 
wollte, konnte ebenfalls zufrieden 
sein. Wir waren es nicht. 































Fiirs Computerleben lernen: 



Steuerung mit Commodore C 64 / Schneller als ubliche SPS 
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Eine computergesteuerte pneumati- 
sche Abfullanlage hat eine Projekt- 
gruppe der Ferdinand-Braun-Schule 
in Fulda entworfen und gebaut, Der 
Computer ist ein C 64 von Commo¬ 
dore: Beruhmt geworden als Heim- 
computer, von dem in Deutschland 
weit mehr als eine halbe Million 
Stuck verkauft warden sind. Elektro- 
nik-Entwickler haben ihn langst auch 
als ebenso preiswertes wie professio¬ 
nal! leistungsfahiges Steuerungssy- 
stem entdeckt. Darauf iegen die 
Lehrkrafte der Schule besonderen 
Wert, denn gerade am Computer sol- 
len die Schuler nicht fur die Schule, 
sondern fur das Berufsleben iernen. 
Die Ferdinand-Braun-Schule ist die 

Gewerblich-Technische Berufsschule 
der Stadt Fulda, ihr angegliedert 
sind eine Berufsfach- und Berufsauf- 
bauschuie, eine Fachoberschule, ein 
Berufliches Gymnasium sowie eine 
Fachschuie fur Technik bis zur Fach- 
hochschulreife. Die Projektleitung fur 
den Modeilversuch liegt in den Han- 




den des Schulleiters, Oberstudiendi- 
rektor W. Imhof. 

Ziel des Modellversuchs sollte die 
stufenweise Entwickiung einer kom- 
plexen, anwendungsbezogenen 
Steuerungsanlage sein, die nicht nur 
die praxisnahe konkrete Anwendung 
im berufsbildenden Unterricht gestat- 
tet, sondern darOber hinaus afs Lehr- 
mittel ein Gbungssystem der moder- 
nen Steuerungstechnik darstelit, das 
im Schwierigkeitsgrad den unter- 
schiedlichen Erfordernissen der ver- 
schiedenen Schuiformen und Berufs- 
ziele (u. a. Maschinenschlosser, Be- 
triebsschlosser, Maschinenbauer, 
Elektro-lnstallateure, Energieanla- 
gen-Elek-troniker, Maschinenbau- 
techniker, Techniker der informa- 
tions-Eiektro-nik, Steuer- und Rege- 
lungstechnik sowie kunftige Ingenie- 
urschuler) fachgerecht angepaBt und 
deshalb gleichermaBen von den Aus- 
zubildenden der Berufsschule, den 
Schulern der Fachoberschule und 
des Beruflichen Gymnasiums und 
von Studierenden der Fachschuie fiir 


Technik genutzt werden kann. Zu die- 
$em Zweck wurden sechs Laborwa- 
gen konstruiert, die alle notwendigen 
Bauteiie fur die verschiedenen Schu- 
lerubungen bis zum Aufbau der kom- 
pletten funktionsfahigen Anlage ent- 
halten. So wird Lernenden die seib- 
standige Losung realer Steuerungs- 
aufgaben, die Konstruktion und prak- 
tische Erprobung, der Nachvollzug 
und Aufbau im Zusammenhang mit 
neuformuiierten Lehrzielen und der 
Transfer auf eine Vielzahl von An- 
wendungen ermoglicht. 

Gesteuert wird die sechszylindrige 
pneumatische Abfullanlage von ei- 
nem handefsublichen Mtkrocomputer 
Commodore C 64, der sich hinsicht- 
lich Preis, Leistung und Bedienungs- 
komfort nach eingehenden Verglei- 
chen und probeweiser praktischer 
Anwendung als optimales Gerat an- 
bot. Nicht nur erwies sich der Com¬ 
modore C 64 als preiswerte und Gber- 
aus ieistungsfahige Alternative zu we~ 
sentlich aufwendigeren Speicherpro- 
grammierbaren Steuerungsanlagen 
(SPS) der GroBindustrie, die er in 
der Geschwindigkeif der Signalverar- 
beitung uberdies um ein Vieifaches 
Obertrifft; er zeigte sich nach Angaben 
der Projektgruppe anderen Mikro- 
computern auch insofern uberlegen, 
als er eine groBe Speicherkapazitat 
und hohe Computerleistung bei un- 
zahiigen Anwendungsmoglichkeiten 
zu einem erstaunlich gunstigen Preis 
zu bieten vermag. Die Entscheidung 
fiir den Commodore C 64 ist vor 
aiiem deshalb interessant und Gber- 
zeugend, weil die Steuerung der An¬ 
lage durch Mikrocomputer nicht von 
vornherein beabsichtigt, der vorlie- 
gende Modeilversuch also keines- 
wegs darauf angelegt war. Die Steue¬ 
rung wurde ursprunglich zu Lehr- 
zwecken mit austauschbaren rein 
pneumatischen Steuerelementen ver- 
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schiedener Lieferfirmen sowie in An- 
satzen mit Speicherprogrammierba- 
ren Steuerungen (SPS) vorgenom- 
men, Erst der technische Fortschritt 
und die jungste Entwicklung auf dem 
Computermarkt fuhrten dazu, die An- 
lage vor rund einem Jahr mit einem 
Mikrocomputer auszustatten. Leicht 
zu bedienen, mit seiner ausgereiften 


Technik und die Vieizahl moglicher 
eigenstandiger Programme ist der 
Commodore C 64 geradezu pradesti- 
niert als Lehr- und Unterrichtsinstru- 
ment. Der Preis fur den Commodore 
C 64 liegt unter 700 Mark. Die Ge- 
samtkosten der betriebsfertigen 
Computerausstattung mit Monitor, 
Drucker und Schnittstellen beliefen 


report. 


sich auf ca. 2500 Mark. 

Geliefert wurde der Mikrocomputer 
samt Zubehor von der Firma Wein- 
rich, Buro-Organisation, in Fulda, die 
sich ais wohlsortierter und fachkundi- 
ger Schuiausstatter fur den osthessi- 
schen Raum besonders fur den Be- 
reich der Elektronischen Datenverar- 
beitung anbietet. 



fiir den C 64 


Auf der MICRO COMPUTER 
MESSE l 85 in Frankfurt stelit die 
Firma CPL Computer plus Soft 
GmbH ihr Diskettenverwaltungssy- 
stem DIDAC vor. Mit DIDAC kann 
endiich Ordnung in die Diskettes 
sammlung gebracht werden. Bis zu 
4500 Programme und Dateien ver- 
waltet das System pro Datendiskette. 
Alie Angaben zu den erfaBten Pro- 
grammen werden aus dem inhaits- 
verzeichnis der Diskette gelesen. Je- 
des Programm kann in eine von 26 
mbglichen Kategorien eingeordnet 
und mit zusatzlichen Bemerkungen 
versehen werden. Die kategorisierten 
Programme konnen nach den ver- 
schiedensten Kriterien sortiert und in 
zwei Druckformaten auf den Drucker 
ausgegeben werden, wobei Drucker 
mit serieliem sowie CENTRONICS 
Interface unterstutzt werden. Das 
Suchen von Programmen bereitet 
keine Schwierigkeiten, dafur stehen 
verschiedene Such kriterien zur Verfu- 
gung. DIDAC ist zur Zeit in deut- 
scher Sprache erhaitlich und kostet 
fur den Endverbraucher DM 89,-. 
Englische, franzosische und italieni- 
sche Versionen sind in Vorbereitung. 


Humphrey Walwyn 
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An diesen Strategiespielen werden 
vor allem Geschichts-lnteressierte 
ihren SpaB haben: 6 historische 
Schlachten werden simuliert, darun- 
ter Waterloo und der Amerikanische 
Burgerkrieg. Der Anwender kann die 
Strategie-Entscheidungen selbst 
nachvollziehen und Alternativen aus- 
probieren. Spielregeln und der histo¬ 


rische Hintergrund jedes Spiels wer¬ 
den eingehend erlautert. Auch die 
Anpassung der Programme an einen 
PET-Computer wird erklart. 


ISBN 3-89028-021-8 

Dezember 1984 

ca. 256 Seiten, DM 29,80 
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programme 



Das Programm „SENS0“ wurde auf dem 
Commodore 16 ohne Speichererweiterung 
geschrieben und getestet 

Bei diesem Spiel miissen Sie versuchen, die Signale, die der Computer 
optisch und akustisch ausgibt, korrekt nachzuspielen 


Dabel haben Sie die Moglichkeit, 
zwischen versehiedenen Schwierig- 
keitsstufen zu wahien. Die Eingabe 
der Tone erfolgt per Tastendruck, 
was in der Hi-Res-Graphik des Pro- 


gramms deutlich zu sehen ist. Aber 
Vorsicht: Warten Sie mit Ihren Ein- 
gaben nicht zu lange, denn auch die 
Zeit spielt in diesem Programm eine 
Rolie. Es kommt also auf Schnellig- 


keit und ein gutes Gehor an. Hier 
wird, anders als bei den meisten 
Spielprogrammen, Ihre Reaktion und 
Inteliigenz auf den Prufstein gesteilt. 


20 Uit1£<40>,<K40> 

25 jJR~l : VUL8 

3k) GkRPH IC8, 1 '• COLORS ,5,4: COLOR 1,1 : CGLOR4.5,2 

35 KRiNTTftiK83 ) “ <•- s~" •< t 1 

48 PkiNiTftBOV' i -* j ,-' I /-•. l i ,-' 1 <-l 

45 PRINTiHB<3> !1 i "-■. i ■'- v » i S i i i *■-•. i I I f 

ho PRINTTftB<3> “ ’•-. I i ,-- H II s -. Ml I i 

55 PRINT'TftB<3> '* .•- * i I ’’-\ H II < - * i I v - ! 

fc<8 PR I NT TftB < 3 > " -' vv v s - f ''- i 

t'h CULQki, lb^PRlNTTftBvS?^ <C> 1985 £V RNBREfiS BftuHLER 
/a COLOR 1,3, 2 : PR 1 NTT HB i. 86 ) ’* Si S * * SPIELBEGINN" 

?‘h PRlNTTfiB<46> ,, a E S « SPIEL,ENIiE , ‘ 

80 PRlNTTfiBt46> M a Hi* SCHWIERIGKEITSGRflD ( 1 )“ 

85 GET m - 1Fft$=" 8" THEN 1 Ob 
90 1 Frtf-h 11 THENGKttPH ICO. 1 : END 
95 IFft$="B“THENGGSUB210 
100 GGTG85 
105 G0SUB245 
110 Fl=0 

115 Fi=R+l :’X=H : IFft>liH*3THEHi95 
128 £<R)=iNT«:RHjj< 1 *4+1 > 

125 FORCalTGfl 

130 ONE < C) G0SUB225,230, 235,240 
135 NEXT 
140 ft=0 

145 IFfl*XTHENFQR1=1T0588* NEXT : GOTO115 
150 R=R+1:Yi“000000“ 

155 GETH$ 

160 I F t i $ -" 800010 11 THEN205 
165 IFH**"T“THENF<ft>=l : G0SUB225 = GOTO198 
170 1 FR$» "U “ THENF ( Fi >»2 : G0SUB238 : GOTO 198 
175 IFfi$*"0"THENF i H ?«3 : G0SUB235•GOTO198 
188 I Ffi$* “ J" THENF i ft > =4: G0SUB248: GOTO 198 
185 GOTO155 

190 iFF(ft) OBFi>T HEN285 : ELSE 145 
195 FOR 1 ~ 1 106 - SOUND 1 .• 834,5 : SOUND 1,818,5 
288 NEXT' : FOR I ~ 1 TO 1800 ; NEXT: G0T025 
285 SOUND1,8,70:FOR1=1T O1080:NEXT : GOT025 
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_programme 

210 BH*DA+i= iFDH>5THEhDH=l 

215 PR 1 NT " S8“ : f OR i ~1 TO 16: PR l NT “ Jfl" 1 : NEXT 

220 PRiNTTHBC 32 >;BA:RET URN 

225 SOUND 1 , 770, i0 : CULDR4, 8.. 6: FORK=1TO500 • NEXT: RETURN 

230 SOUND 1810,10: C0LUR4,7,3: FORK-1TO508: NEXT: RETURN 

235 SOUND1,854,10:C0L0R4,3,3:FORK*1TO500 : NEXT:RETURN 

240 SOUND 1,881,10: CULGR4,S, 4: FORK-110500:NEXT:RETURN 

245 COLORS,3,6:COLOR1,1:GRAPH101,1 

250 C1ROLE1,160,100,75:01ROLE1,168,108,74 

255 01ROLE1,135,7b,i5 = C1ROLE1,185,75,15 

2fa0 CIRCLE1,135,125,15 : C1RCLE1,185,125,15 : CIRCLE!,168,109,65 

265 COLOR 1,8,6 = ph i N'T 1,135, 75 

270 COLOR1,7,3 : PHINil,135,75 

275 COLOR1,3,3 ; PH1NT1,135,i25 

280 COLOR1,6,4=PHiNT1,185,125 

285 COLOR 1, i : CHAR 1,16, 9 , T " : CHAR 1,22,15, 11 J " 

280 CHARI, 22,9, "U" : CHARI, 16, i5, "G 11 
295 CHARI, 17,12, “SEHSO" 

308 RETURN 



Wie sehon der Name dieses Spieies 
verrat, hat es Sie in den Urwald 


verschlagen. Sie sammetn im Urwald 
verborgene Schatze ein. Dazu mus- 
sen Sie an Lianen Ihre Kletterkunste 
unter Beweis stellen und im Sprung 
verschiedene Ebenen erreichen. Das 
Ganze klingt aber etwas einfacher, als 


es in Wirklichkeit ist. An den Lianen 
klettern Feuerballeri hoch und runter 
und behindern Sie beim Kiettern. Auf 
den Plattformen wandern pfannenfor- 
mige Gebilde hin und her und von 
oben fallen standig groBe Holzfasser 
auf Sie nieder. 

Hinzu kommt noch, daB der Bonus- 


zahler unbarmherzig ;uckwarts zahlt. 
Haben Sie aber eine Runde ge- 
sehafft, bekommen Sie den Bonus- 
zahler zu den von Ihnen erreichten 
Punkten hinzugezahit. Geschwindig- 
keit, Anfangsbild und Anzahl der Le- 
ben konnen vor dem Spiel gewahft 
werden. Die Steuerung erfolgt uber 
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Joystick (Port II) und hat folgende 
kleine Eigenarten die Sie beachten 
mussen: 

Das von Ihnen gesteuerte Mannchen 
kann nur in eine Richtung (rechts- 


/links) springen. Steht die Spielfigur 
auf einer Piattform, bewegen Sie die- 
se durch Betatigung des Joysticks 
nach rechts Oder links und durch 
gleichzeitiges Drueken des Feuer- 


knopfes konnen Sie springen. Hangt 
die Spieifigur an einer Liane, reicht 
die rechts/iinks-Bewegung des Joy¬ 
sticks, um diese in die entsprechende 
Richtung springen zu lassen. 


2 REM 


3 Ren * 

4 REM * 
REM *•: 

b REM % 

7 REM 'M 

8 REM * 


J iJ N G L h 

BV 

THonfis goesmhnn (cy&s 


9 REM 

i 0 POKE532S0, 7 ■ PGKE53281 .• 7 ■ PR I NT" :M" 

50 FGRA~245/6 1026864 • RBADM ; P = P.*H'i : POKER j W : NEXT 

55 IFP0263484T HENPRI NT “ IN DflTflS MS": STOP 

100 PR I NT" □NHCHLHliEN VON BClflSSETTE ODER HDlISKETTE ?" 

1 iO POKE 198,0: WHi'imi:GET m ■ l Ffl$<>"C"ANDfi*<>"B»THEHGOTOi 1 Q 
i 15 IFA$-"C"THEN PRINT"CASSETTE":POKE198,1 = P0KE631,131 M3OTO1S0 
120 i F A* O " D " THEHGOTO 118 

140 PR 1 NT“BISKE'i TE" : PR 1 NT"JSLOAIi " CHR$ <34) " JUNGLE 2"CHR$<34> ", 8" : PRINT'^^KWRUN" 

145 POKEi98,6:P0KE631,19:P0KE632,17 ; P0KE633,17-P0KES34.17:P0KE635,13-P0KE636,13 
150 SVS26818 = P0KE44.*40 ; PQKE40*256,0 : NEW 
485 REM 

490 REM BATHS FUER M-CQBE 
495 REM 

500 BA1 H12*3, 129, 128 .* 1 ofc i, 131.* 132,131,133,134,135,0,0,0,0,6,0,126,169,10,141 

501 IlRTR20,3,169,22,141,21,3,88,169,255,141,2,228,32,218,22,163,0,141,4, 132 
562 DR I B 1 73 .< 8 .< 220,41,24, 208,3,32,226,13,173,0,220,41,28,208,3, 32, 246,19, 1 r' 8 
503 DATH4,192,41,128,208,71,173,0,220,41,8,208,3,32,29,17,173,8,220,41,4 

584 DATR208,3,32,168,17,173,0,228,41,1,208,3,32,37,18,173,8,228,41,2,208 

585 BRTH3,32,128,18,173,8,220,41,17,288,1,234,173,4,192,208,18,173,32,192 
506 DATH240,10,206,40,192,208,5,169,8,141,32,192,32,150,16,32,241,23,234 

587 BRTH234,76,33,16,0,0,0,162,16,160,0,136,208,253,282,208,256,96,0,8,8 

588 DATA169,40,141,8,193,169,8,133,139,169,4,133,140,172,1,192,165,139, 24 

509 DATA189,0,193,133,139,144,2,230,148,136,208,241,172,0,192,177,139,201 

510 BATA160,248,51,20i,83,240,47,281,65,240,43,201,94,240,44,201,95,240,46 

511 BATA201,189,240,31,281,110,240,27,201,112,248,28,201,113,248,24,201,123 

512 BHTR240,15,201,124,240,11,201,126,240,7,201,127,240,3,201,116,96,169 

513 DRTR32,76,252,16,173,44,192,248,IS,169, 1,141,42,192,140,43,192,165,139 
5X4 BATH133,148,i65,140,133,149,76,255,16,0,173,2,192,281,33,288,1,96,173 

515 BRt R6,192,240,3,76,226,18,173,32,192,240,3,76,226,18,172,2,192,200,140 

516 BRTR0,192,173,3,192,141,1,192,169,1,141,44,192,32,164,16,168,8,140,44 
51? DRTA132,281,116, 240,5,201,32,240,1,96,169,8,141,5,132,173,5,192,281,4 

518 DA T R248,7,201,8,240 .< 3, 76,125,17,230,181,164, 181,192,4,288,4,160,0,132 

519 BATA181,185,8,lb,141,248, 7,238,0,208,208,8,173,16,208,9,1,141,16,208 

520 BATH169,1,141,4,192,32,158,16,206,5,192,288,198,238,2,192,32,185,21,96 

521 DAVHB,0,173,2,192,201,1,208,1,96,173,6,192,248,3,76,246,19,173,32,192 

522 BATA240,3,76,246,19,172,2,192,136,136,140,0, 192,173,3,192,141,1,192,169 

523 BATR1,141,44,192,32,164,16,160,0,140,44,192,281,116,248,5,201,32,240 

524 DATAi*96,169,8,141,5,192,173,5,192,201,4,240,7,201,8,240,3,76,1,18,230 

525 DATA181,164,181,192,4,208,4,160,0,132,181,185,4,16,141,248,7,206,8,208 

526 BATA288,8,173,16,208,41,254,141,16,208,169,1,141,4,192,32,150,16,206 

527 BATHS, 192, 208,198,206,2 .< 192,32,185,21,96.* 0,0,0,173,2,192,141,0,192, 172 

528 BATA3, 192,136,148,1, i 92 .< 32, .164,16,240,1,96,206,1,192,32,164,16,240,1 

529 BHTA96,169,8,141,5,192,173,5,192,20i,4,240,7,281,8,240,3,76,132,18,230 
538 BATA247,164,247,i92,2,288,4,168,8,132,247,185,8,16,141,248,7,286,1,208 

531 DATA32,158,16,286,5,192,288,213,206,3,192,169,1,141,4,192,32,185,21,96 

532 BATHS,8,8,173,2,192., 141,8,192, 172,3,192,136, 148,1,192,32,164,16,248,1 

533 BRTA96,238,1,192,238,1,192,32, 164,16,248,5,281,32,248,1,96,169,8,141 

534 DAiRS,192,173,5, 192,281,4,240,7,281,8,240,3,76,200,18,230,247,164,247 

535 BAT A19 2,2 < 288,4,168,8,132,247,185,8,16,141,248,7,238,1,208,32,158,16 
036 ■ BA 1H206, 5 , 192, 288,213, 238 .* 8, 192,169,1,141,4,192,32,185,21,96,0,6,0, 173 
53? DATA2,192,281,39,288,1,96,32,239,21,169,128,141,4,192,169,129,141,248 


8 
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programme 


IIRTR7,169,8,141,5,192,173,5,192,201,5,144,6,206,1,288,206, 1,203,32,94 
BRTR19,206,5,192,208,235,169,0,141,32,192,238,2,192,206,3,192,32,11? 
IiflTRly,169,8,141,5,192,32,94,19,206,5,192,208,248,238,2,192,32,117,19 
BftTfti69,8,141,5,i92,238,i,208,32,94,i9,206,5,192,288,245,169,0,141,32 
IiftTftl92,238,3,192,238,2,192,173,2,192,201,39,144,3,76,i13,21,32,117,19 
BfiTR32,139,20,96,238,8,208,173,8,298,288,8,178,16,288,9,1,141,16,288 
lift f H32, 150,16,96,0,8 .< 8,173,2,192,201,39,208,3,104,184,96,173,2,192,201 
BRTR255,208,3,104,104,96,173,2,192, 141,8,192,173,3,192,141,1,192,286 
Dfti Ft 1,192,32,164,16,240,3,76,188,19,238,1,192,32,164,16,240,7,201,32 
BRTH248,3,76,191,19,169,134,141,248,7,104,184,169,8,141,32,192,96,238 
BftTftl,192,238,1,192,32,164,16,240,25,201,32,248,21,76,225,19,173,4,192 
lift TR4.1, 128,248,6,173,4,192,141,248,7,32,149,20,104,184,96,206,0,192,32 
DftTftl64,16,248,7,201,32,240,3,76,206,19,96,0,8,8,9,8,173,2,192,281,1 
BRTR208,1,96,32,239,21,169,131,141,4,192,169,132, 141,248,7,169,8,141 
BftTftS,192,173,5,192,281,5,144,6,286,1,288,266,1,288,32,114,28,286,5,192 
Bft TR208,233169,0,141,32,132,206,2,192,206,3,192,32,117,19,169, 8,141 
Bft Tft 5,192,32,114,20,206,5,192,268,248,206,2,192,32,117,19,169,8,141,5 
BftTftl92,238,1,208,32,114,28,206,5,192,208,245,169,0,141,32,192,238,3 
HftTftl92,286,2,192,173,2,192,201,255,144,3,76,113,21,32,117,19,96,0,0 
lift i ft0,286, 0, 208,173,8,288,201,255,208,8,173, 16,208,41,254,141,16,208 
1IRTR32,150,16,96,8,8,0,173,3,192,201,23,144,3,76,113,21,173,2,192,141 
BATHS,192,172,3,192,200,148,1,192,169,1,141,6,192,32,164,16,240,21,261 
DRTR32,248,17,286,8,192,32,164,16,240,9,261,32,240,5,169,0,141,6,192 
HRTH234,234,234,173,2,192,141,0,192,172,3,192,266,140,1,192,32,164,16 
IIRTR240,17,261,32,240,13,206,0,192, 32,164,16,240,5,201,32,240,1,96,286 
BfiTfti,192,286,1,192,173,2,192,141,0,192,32,164,16,248,3,76,14,21,238 
BftTftl,192,32,164,16,240,7,201,32,240,3,76,14,21,96,0,0,8,169,2,141,7 
IiRTfti 92, i69,8,141,5,192,173,4,192,41,128,248,23,173,4,192,281,128,208 
liftTft3,32,94,19,173,4,1*32,201,131,288,3,32,114,28, 76,57,21,32,150,16,238 
lift Tft 1,288,206,5, i 92,288,215,238,3,192,173,4, i 92,41,128,248,27,173,4,192 
I'ftTH20 i, 128,208,3,238,2,132,281,131,288 , 3,206,2,132, i 73,1, 192,281,24 
BftTB208,3,76,113,21,32,137,19,286,7,192,288,165,234,234,234,173,4,192 
HR TR41,128,208,9,238,1,288,32,158,16,76,155,21,173,4,192,201,128,288 
lift Tft 6,2381,208,32,94,19,173,4,192,201,131,208,6,238,1,208,32,114,20 
£ift 1 ft 173,16,203,41,1,208,5,173,0,208,248,10,173,1,208,201,255,246,3,76 
BftTftl13,21,184,184,184,104,96,8,0,0,169,0,141,4,212,141,6,212,169,6,141 
IiRTR5,212,238,8,192,173,8,192,201,3,288,5,169,0,141,8,192,281,2,248,8 
liftTft169,21,141,1,212,76,230,21,169,24,141,1,212,169,17,141,4,212,96,0 
BftTftS,0,169,0,141,4,212,141,6,212,169,10,141,5,212,169,30,141,1,212,169 
BftTftl'7,141,4,212,96,0,8,0,173,16,208,41,1,288,19,173,1,288,201,64,208 
BftTR12,173,0,288,201,44,208,5, 169,1,141,51,192,173,33,192,240,7,281,128 
HR TR240,3,76,53,22,169,128,141,47,192,238,33,192,173,33,192,41,2,203 
BRTR3,76,131,23,162,6,238,16,192,189,1,208,24,125,13,192,157,1,208,173 
mi ft16,192,201,8,208,45,138,74,168,169,17,56,249,248,7,153,248,7,189 
BRTR7,192,141,20,192,189,8,192,24,125,13,192,141,21,192,157,8,192,32 
IIRTR i 53,22,240,9,169,0,56,253, 13,192,15?,13,192,202,282,288,198,173,16 
BBT ft 192 .< 201,8,208,5,169,0,141, 16,192,76,224,22,0,169,48,141,8,193,169 
BHTA0,133,141,169,4,133,142,172,21,192,165,141,24,109,0,193,133,141,144 
lift Tft2,238,142,136,288,241.«172,20,192,17?, 141,281,168,240,11,281,83,240 
BATA?,201,65,240,3,281,116,96, 169,32,76,281,22,8,173,38,208,41,1,248 
BftTft3,76,113,21,76,139,28,8,173,24,192,288,28,173,27,212,281,252,144 
BHTA10,169,1,141,25,192,169,1,141,24,192,76,111,23,234,234,173,27,212 
BftTft281,251,144,9,169,0,56,237,25,192,141,25,192,238,9,208,173,25,192 
BftTR281,1,288,l 9 ,238,8,288,238,8,208,208,32,173,16,208,9,16,141,16,208 
BRTH76,61,23,286,8,288,206,8,£88,173,8,288,281,254,208,8,173,16,288,41 
Btt Tft239,141,16,268,173,9,288,201,248,240,15,173,16,288,41,16,208,5,173 
BRTftft,288,240,3,76,111,23,169,8,141,8,208,169,64,141,9,288,169,8,141 
BftTH24,192,173,16,208,41,239,141,16,208,76,111,23,8,0,173,8,220,41,16 
Bft.TR288, i 3, i 69,255,141,32,192, 169,2,141,48,192,234,234,234,162,4,189 
BftTftS, 208,24, i25,33,192,157,8,288,221., 34,192,240,8,221,37, 192248,3,76 
BRTRi65,23,169,8,56,253,33,192,157, 33,192,282,282,208,228,234,234,234 
BftTftl73,42,192,208,3,76,49,234,169,0,141,11,212,169,33,141,11,212,169 
DRTR0,141,42,192,169,32,172,43,192, 136,145,148,288,145,148,288,145,148 
BRTR165,148,56,233,48,133,148, 176,2,198,149,169, 32,145,148,136, 145,148 
BfiTft136,145/148,169,250,141,58,192,76,49,234,8,9,8,173,47,192,248,89 
BftTftl73,45,192,56,233,188,i41,45,192,176,3,286,46,192,169,28,133,211 
BftTft169,8, i 33,214,32,i88,229,169,5,141,134,2,173,46,192,174,45,192,32 
BRTR205,189,169,32>32,218,255,169,32,32,210,255,169,8,141,47,192,173 
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programme 


606 DRTR45.1192.* 208,8.* 173,46.* 192.>208.'3, 32.* 113, 21, 173, 46; 192;201 .<4; 176; 15, 169 
60? DfiTfte, 141,11,212.. 169,16,14i,8,212,169,17,141,11,212,234,173,59,192,249 

698 BATB45,169,6,133,211,169,0,133,214,32,108,229,169,5,141,134,2,173,48 

699 DATA192,24.199,59,192,141,48,192,144,3,238,49,192,173,49,192,174,48,192 
6i9 BATA32,205, 189,169,9,141,58,i92,173,51,192,248,3,194,194,96,96,169,127 
611 BATA1.41,14,220,169,51,133,1,169,6,133,139,133,141,169,8,133,140,169,298 
6 i 2 HATH 133,1-42, i 60,0,177,141,145,139,299,298,249,239,149,239, i 42, 165,142 

613 BATR201,216,208,239,169,55,133,1,169,129,141,14,229, 96 ,8,09,169,0,133 

614 BATA139,133,141,169,16,133,148,169,96,133,142,168,9,177,141,145,139,299 

615 BATA288,249,230,148,230,142, i 65,1-42,201,111 > 298,239,96,120,169,49,141 
bi6 DATA20,3,169,234,141,21,3,88,96 

16060 FCiRfl=0TO2080: NEXT = PRINTPEEKC631 > J PEEK (632) i PEEK (633) 


Teil 2 


1 REM *^^**#*^*^^*^***^*****5f:*^*^:*^ 

2 REM * JUNGLE CC)"85 $ 

3 REM # BV * 

4 REM $ THUMBS GUE8MBNN * 

5 rem M%mm%**x*Mm*m%M*:*******M.* 

10 V ss S3248 : 8 i =342 72 • 08=58732:SO0 • UIMPO < 3,1,32 > = PR I NT " 3” 

20 POKEV+21,0: POKEV+32,9 •' POKEV+33 .* 0 

23 POKES1+15,50■POKESI+19,0:POKES1+29,249:POKESI+18,129:POKES1+24,143 
39 POKES1+8,16:POKES1+12,9:POKES1+13,0:PQKE49290,0=P0KE49291,8 
30 F0RB=8T03:F0R£=V+2T0V+16 : REHBPO< fi,0,B-V-2 >:NEXT 


69 F0RR=8192T08192+64 % 12-1:READB:POKER,B:NEXT 
185 REM 

199 REM ZEICHEN BEFINIEREN 
195 REM 
290 SVS6283 

250 FGRB-0TO17:REBBRBR:RBR=2048+8*fiBR 
255 FORB»0TO7 : REHDM ; POKERBR+B,W ; NEXT : NEXT 
265 REM 

279 REM SPRITEPOS X T1ONEN SET2EN 
273 REM 

286 POKE2040,128: POKE2041 ,< 137: POKE2042,136: POKE2043,13?:ROKE2044,138 
285 P0KE2945,139=PGKE2046,139:POKE181,0:P0KE247,9 

296 POKEV+37,2:POKEV+38, 7:POKEV+39,6:POKEV+40,8:POKEV+41,8:POKEV+42,8 
292 POKEV+43,9:POKEV+44,9 
295 GOSUB19600:POKEV+22,216 

380 POKEV+17,11:FORR-49152T049198:POKER,0:NEXT 

329 POKEV,36 = PoKEV+i,216 = P0KE49154,3:P0KE49155,22 

338 F0RB-V+2T0V+16:POKER,PO <RU,9,fi-V-2> = NEXT 

335 FORR-49161T049193:POKER,PCKRU,1,R-49i61>:NEXT 

340 P0KE49197,136 = POKE49198,19:P0KE49203,0:POKEV+28,111 

359 POKEV+38,6 = POKEV+34,14:POKEV+35,7 : POKEV+24,19 : ONRU+1G0TQ4Q8,609,899,1999 
385 REM 

399 REM l.SPIELFELB 

335 REM LXflNEN*COMMODORE+H 

39? REM 


460 PR I NT " 3HI 
495 PRINT" 
419 PRINT" 
415 PRINT"ST 
429 PRINT" I 
425 PRINT" I 
439 PRINT" i 
435 PRINT" I 
448 PRINT" I 
445 PRINT" i 

459 PRINT" i 
452 PRINT "IS 
455 PR I NT "Si 

460 PRINT" 1 
462 PRINT"* ! 


k H 

w-'-usv L'lTn.TLnrr-' k h- 

i i •-■~TL~nr-' 


ss ’-ttu r-‘" 


V TTVB 


kh 

kP 


TT-’fii 


TLX“ 





SfieESemce 


Lieber Leser, ■ -l f YHj_ 

das Redaktionsteam hat mit auBergewohniichem Engagement unsere Marktposition nicht nur fesiigen, sondern um ein 
weiteres Magazin erweitern konnen. Nach „C0MPUTR0NIC“, „HOMECOMPUTER“ und H CPU“, erscheint ab 
diesem Monat ..COMPUTE MIT...“ als viertes Magazin im Tronic-Verlag und ist ab sofort wieder bei Ihrem 
Zeitschriften- H andler erhattlich, 

Neben einem erfolgreichen Start wunschen wir uns natiiriich dem Mark! gerecht zu werden. Dazu gehoren nach unserer 
Meinung gute Programme und eine Vielzah! von tnformationen fund um Ihren Computer. Zusatzlich wolien wir in 
..COMPUTE MIT..." unseren schnellen, von viefen Kunden schon geschatzten Service auch in diesem Magazin 
fortfuhren und welter ausbauen. 

..COMPUTE MIT...“ haben wir, lieber Leser, speziell aut die Commodore- und Schneider- (hier der CPC 464)-Com~ 
puter zugeschnitten. Nachdem sich schon im Herbst 1984 auf dem deutschen Computer-Markt abzuzeichnen schien, 
daB der CPC 464 nach einem nahezu kometenhaften Aufstieg gute Chancen besitzt, dem Giganten Commodore ein 
ernstzunehmender Konkurrent zu werden, wurde unser Team nahezu gezwungen, diesen Trend aufzunehmen und auch 
weiterhin zu verfolgen. D. h., fur beide popuiaren Homecomputer-Riesen werden wir in jeder Ausgabe von ..COMPUTE 
M IT...“ein attraktives Angebot bereithalten. AuBerdem bietet unsere Redaktion einen Super -Service an, um Ihnen 
eventuelle schwierige Abtippereien zu ersparen. Auf dieser Seite finden Sie ein sogenanntes Kombi-ABO. Es belnhaltet 
ein Abonnement + bespielter Kassette, auf der afle in der jewelligen Ausgabe veroffentlichten Programme sind. Wir bie- 
ten Ihnen damit die Moglichkeit, 12 Magazine + 12 Kassetten jeden Monat mit aktuellen und attraktiven Programmen 
zu beziehen. 

Allen Commodore- und Schneider-Computer-Besitzern wunschen wir fur die Zukunft vie! SpaB mit „COMPUTE 
MIT...“ und ein Error-freies Eingeben. - nach der richtigen Eingabe der Oaten iaufen aile Programme. DafOr verburgt 
sich unsere Redaktion - TRONIC-Verlag 

j/ J/ ^ si* ^ ^ 4^ *1* ^ ^ ^ ^ ^ ^ ^ 

So ein Kombi-Abo ist nicht nur fur scharfe Rechner eine 
lohnende Sache. Wir liefern Ihnen Ihre ..Compute mit 
plus kompletten Datentrager (Kassette) frei Haus! 

Der Datentrager enthalt aile Programme (Commodore und Schneider) der jeweiligen Ausgabe. 


Super-Service 

Kombi-Abo 
„Compute mit 


Name / Vorname 


StraBe / Nr. 


PLZ / Ori 


Bitte ausschneiden 
und senden an: 


Ich wunsche tolgenties ABO (Inland): ' 

□ 12 Exemplare ..Compute mit+ 12 bespielte Kassetten 

zum Preis von 97,50 DM (Ausland 110- DM) 


Tronic-Verlag GmbH □ 12 Exemplare ..Compute mitohne bespielte Kassetten 


Postfach 41 
3444 Wehretal 1 


zum Preis von 
gegen 

□ Rechnung 


30,- DM (Ausiand 40,- DM) 


□ Vorkasse 


Datum, Unterschritt 


Abonnement-Kundigungen: 

6 Wochen vor Ablaut des Jahresabormements. AuBerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Veriag widerrufen! Zur Wahrung der Frist ge~ 
niigt die rechtzeitige Absendung des Widerrufes. 


Datum, Unterschritt 
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programme 


465 PRINT" i I t I t I I 

470 PRINT" ! I i I I 1 

475 PRINT" i I © TL'T"--’ Sii I f I 1 11 

480 PRINT" j Si I i i I I " 

485 PRINT" li I i" 

430 PRINT" f I ” 

495 PRINT" S1H-K A+-, Sttrl" 

436 PftINT ,, SH44-hH-K kSl » »H~h kSl 9 S3 

49 ? pr i nt 11 ws sa»*^*«**ka ia***#k3i i»****ki3i 

499 6OTO2080 
585 "INK 3.2" 

585 REM 

590 REM 2.SPIELFELD 

535 REM 

600 PRINT“EM ® 

610 PRINT" 8* i 

615 PRINT" « I 

620 PR I NT “ 8 HL’THllJTJTTJ-TriJl LTX."I U TV IS 1 
625 PRINT" I 1 * 




■SPIELFELD 


B^TLT^ 
I I " 


630 PRINT" I 

635 PRINT" I 

640 PR I NT " SI I ©T'"I_"T“F 
645 PRINT" I I 

650 PRINT" I \ 

655 PRINT" t 1 

660 PRINT" ! I 

665 PRINT" i I 

678 PRINT" I t 

675 PRINT" t I 

680 PRINT" kH Si 

685 PRINT" kH- IS 

690 PR I NT" © '-“UliV 
695 PRINT" 

700 PRINT" 

70S PRINT u WMB++ 44-HH 
710 PRINT"kS 
750 GOru2088 
785 REM 

730 REM 3.SPIE 

795 REM 
800 PRINT“aWM 
805 PRINT" 


i Mif* ii i " 

S ©HTTLT1T>*" 


S8it^ SI 

©nLT~lVii 


kH Si 
kH- Si 


kH 

BH-TITLTT^ kP 
© V T"LLT V 


hlttk ss" 


PH © ‘i-~T LT1 IV" 


3.SPIELFELD 


BHLTLTTV 


810 PRINT 1 '©VI 
815 PRINT" 1 
820 PRINT" f 
825 PRINT" I « 
830 PRINT" I 8 
835 PRINT" i 
340 PRINT" © 
845 PRINT" i © 
850 PRINT" i © 
855 PRINT" i © 
860 PRINT" I S 
865 PRINT" I i 
878 PRINT" J 
875 PRINT" \ 
880 PRINT" { © 
885 PRINT" i © 
890 PRINT" l 
895 PRINT" I 
908 PRINT" 

90S PRINT"SH-H- 
918 PRINT" 2k. 
958 GOT02888 
985 REM 
998 REM 
995 REM 
1008 PR I NT 


,, L'‘1X'T11^^''“ri-'TL^ Ln"HUTTV Si I 

I Si t 


SSfT’l 

mxTjrrnLV 


! OV ii i 

© TV S8 I 

© riy si i 

© TV Si I 
Hif* ©'■'TLTS8 I 

'©'•'“V ii I 

I 

© v TJ"“T v ii l 

© '■■ 'IS . Si i 

© 'Hu' Si I 


© TV 
5'‘TV 


B’TV 


© tv 


Si 

**ayii i 
Si i ! 
I i 
Si i 

© vrsi i 

Si I ! 


©TV Si" 


B v kH" 
kV" 

k HH+H-h B'TJTU.T M 


4.SPIELFELD 


V THLL~1 V 







programme-, 


1885 

PRINT" 



Si I 1 

ill" 

1818 

rKIN rO'UU LL 1 1 1 

I LL 1 I LrnLTL/ Si i 

1 1 j I " 

1815 

PRINT" 1 



1 1 

111" 

1020 

PRINT" 1 



i 

l 1 " 

1825 

PRINT" 1 



fii i 

0‘"7 fii 1 " 

1838 

PRINT" i 

ffi rur^ 

fii 9 

i " 

1035 

PRINT" i 

S^L/fiJi 1 

1 

1 

I SStr^P* 

1040 

PRINT'S! 

9 Si 1 

, $ v-npvjj j 

1 BT- 

1050 

PRINT "Bi 

t 1 

i 

9 

1 1 " 

1855 

PRINT" 1 

kS Bi i 

3 ’•■“U K fii 1 

1 

i 1 " 

1060 

PRINT" f 

fii i 

i 

i 

t " 

1865 

PRINT" i 

S T~L6i 1 

9 

1 

BT-'fii I " 

1078 

PRINT" 1 

1 

SSrr^ 

fii I 

l 1 " 

1075 

PRINT" 9 

1 

BH-/ 

fii 1 

I I " 

1080 

PRINT" 9 


BTT fii 


1 " 

1085 

PRINT" i 


SHTV fii 1 


9 *' 

1090 

PRINT" 1 

STL-' Si 1 3 TTLTL^ 

Si i " 

1095 

PRINT" 

S^T-/ kh Bi! 1 " 



1180 

PRINT" 

S 'IV 

k H* 

STL/" 

1185 

PRINT" 

S V T-' 

^J\rUlST\rTTiy 

II 


iilS PRINT" 

1150 GOTG2008 
1985 REM 

1998 REM ri-eOUE RUFRUFEN 
1995 REM 

2880 PRINT"SttSCOREi LIVES-' BONUS BB000" 

2005 P0KE211,S:PGKE214,8:SVSCS:PGKE646,5:PR1NTSC 
2610 POKES11,18:POKES14,0:SVSCS:PRINTLI 

2020 POKEV+17,27: POKEV+21,127 : SVS4112 '■ IFPEEK<49203)=0THENGOTD4000 
2985 REM 

2990 REM RUNDE BEENBET 
2995 REM 

3800 BO*PEEK<49198>$256+PEEK(49197):8C*PEEK<4928I>*236+PEEKC49209>=B«10 
3003 POKES' 1+4,0: POKES 1+5,0: POKES I +6,248 

3885 PORfl* 1T0B0STEP58 = SOSC+50 : P0KE211,5 = POKES 14,8: SVSCS: P0KES46,5 : B=B+1 

3010 PRINTSC:POKESI+4,33:POKESI+1, B:NEXT:POKES1+4,0 

3820 POKE49201,SC/25S:PQKE49200,SC-1NT CSC/256 > *256 

3030 EU-RIJ+1:IFRU*4THENRUs0:IFBL<3THENDL*BL+1=P0KE5692,2TDL-1 

3840 GOTO300 

3985 REM 

3998 REM LEBEN VERLOREN 

3995 REM 

4000 LI=LI-1:POKE211,18:POKES14,0:SVSCS:PRINTLI 
4882 SC«PEEK<49201)#256+PEEK<49200):B*10 
4805 IFLIS0THENPOKE49200,8:POKE49201,0:GQTO5880 
4018 FORH=8TO1000 : NEXT : GGTO308 
4985 REM 

4998 REM SPIELENDE 

4995 REM 

5080 POKES 11,11: POKES 14,18:SVSCS ; PRINT"NOCH EIN SPIEL ?** 

5018 CR-55296+10*48+11:PO«0 

5828 FORD-1 TO?: POKECR+PO, D: PQ-PO+i : GETfi* = IFR$<>" "THENGOTO5100 

5825 IFPO=1STHENPO-8 

5830 NEXT : GOTO5028 

5100 IF8$=“J"THEN60T0288 

5118 IFfl*s"N“THEN PRINT"m“ : SVS6378 : POKEV+21,8:STOP 
5128 G0T05825 
5508 STOP 
9985 REM 

9998 REM VORPROGRfl'MM 
9995 REM 

10880 SVS6372:POKEV+22,200 : POKEV+24,21:POKEV+32,8 = POKEV+33,8 = 

18818 POKEV+21,0: PR I NT " 3TW U 

18020 print" tirw &rw srar-irs s rw sr w sr w n 

10030 PRINT" WW 3 WW WW W ■ WW 'SFW WW WW" 

10840 print" s rw ww ww ww ww% rw www w ww w w" 
10058 print" ww ww ww ww ww a w ww ww ww ww* 

10068 print" w w w w ww r w w w ww w" 

18865 DL-1: RU-0: LI»5: W«5: UG-3 ’• 0G=9 = Cl=?: C2=*5: C3=5: S=15: OOSUB12888 




programme 


10078 

10160 

10110 

10120 

10130 

10205 

10210 

i8215 

10220 

10225 

10300 

10362 

10305 

10310 

10313 

10315 

1031? 

10320 

11000 

1199? 

11998 

11999 
■12600 
12605 
12010 
1202© 
14985 
14990 
14995 
13000 
15005 
15.810 
15815 
15020 
15500 
44985 
44990 
44995 
45800 
45805 
45010 
45100 
45185 
45110 
45200 
45218 
45220 
453S0 
45305 
45310 
49985 
49999 
49995 
50800 
50005 
50818 
50188 
50185 
58il0 
50280 
50205 
58210 
58300 
50305 
58310 
50488 
50405 
50410 
50508 


POKES 11,12: P0KE214j 10• SVSCS = PRINT"VON THOMAS OOESMRHN" 

CRS55296+10*40+10:P0=8:PGKE56322, 224 

FORD-1TO?:POKECR+PO,B : PO=PO+l : IFPO«22THENPO*0 

IFPEEK(56328)O127THENGOTQ18285 

NEXT : GOTO10110 

GOSUB15000:LI-N 

BL=i : W~1 : UG=i:00=3:Cl=5:C2=7:C3=5:S=17 : GOSUB12000=GOSUB13000 
BL=U:POKE5692, 2 TBL-1 • 

RU-8 : W—1 : UG=1:OG-4:Cl=5:C2*5 : C3=7:S*19:GOSUB12089 : GOSUB15080 
RU=W-1:P0KE56322,255 : Cl=3 = C2=5:C3«5•GOSUB12000 

POKEV+1,143:POKEV+3,143:POKEV,0:POKEV+2,0 = SP=128•POKEV+16,0:POKEV+28,3 
POKEV+21,3 : F=0 

POKE2040,SP:FORR*0TO3:POKEV,PEEK<V>+2*IFFslTHENPOKEV+2,PEEK<V+2)+2 
IF PEEK <V> *254THENPOKEV,0 = POKEV+16,PEEK < V+16)OR1 
IF PEEK(V)®40THENF»1 

IF PEEK<V+2)*254THENPOKEV+2,6 = POKEV+16,PEEK<V+16)0R2 
IF PEEK<V+16)=3ANDFEEK(V) = 150THENRETURN 
NEXT: SP*25?~SP '• GOTO 18385 
RETURN 


POKES 110 : POKES 14,13 ; SVSCS : P0KE646, Cl ;PRINT u M«»WRNZfiHL HER LEBEN "LI 

P0KE646,C2:PRINT 1 " 3»»W3CHWIERIGKEITSGRAB " BL 

PGKE646, C3 = PRINT M ]»»WflNFfiNGSBILD "RU+1 

RETURN 

PEN 

REN JQVSTICKRBFRRGE' 

REM 

POKES11,22 : POKES14,S:SVSCS:P0KE64S,7 
1FPEEKC56328)=126ANBW<0GTHENW*W+1=PRINTW • 

IFPEEK<56320)*125flMBW>UGTHENW«4l-l : PRINTW 

IFPEEK C56328>=111THENRETURN 

GOTO15800 

STOP 

REM 

REM SPRITEPOSITIGNEN 
REM 

BATR30,100,136,188,47,108,8,80,36,63,20,215,0,8,72 

BATHS,?,15,7,36,7,255,8,1,8,1,8,0,0,0,8,0,8,8,8,8,0,0,0,8,0,1,195,1,108 
BATA20,0,12 

DATA76,124,0,108,55,188,8,80,36,63,20,215,8,0,72 

BRIGS,10,14,7,37,8,255,8,1,8,1,8,8,0,0,8,8,0,0,8,0,8,8,8,0,8,1,255,1,55 
BHTA25,8,1 

BRTR38,136,142,128,48,108,0,88,228,63,188,35,8,0,8 

BATA2,12,16,11,36,7,1,0,255,0,1,8,0,0,0,0,0,0,0,0,8,0,0,0,0,0,1,248,1,175 
DRTR20,0,108 

DATA30,108,182,124,238,124,0,88,36,63 1 250,287,0,8,8 

BftTA2,7,11,18,28,18,255,8,1,8,1,8,0,8,0,8,8,0,8,0,0,0,0,0,0,0,1,240,1,255 

BRTR28,8,155 

REM 

REM BRTRS FUER SPRITES 
REM 

BRTR8,0,8,8,8,8,0,84,8,1,85,64,2,172,8,11,187,240,11,173,252,42,245,88 
BRTR8,255,192,2,168,8,10,158,8,10,93,8,10, 143,64,10,245,64,5,137,64 
BRTRS,69,0,10,18,.8,18,138,128,0,0,8,0,0,0,8,0,8,0 

BRTR8,8,0,0,8,8,8,84,8,1,85,64,2,172,8,11,187,240,11,173,252,42,245,88 
BRTRS,255,192,18,149,8,258,149,64,242,117,255,194,85,84,5,85,84,21,85,84 
DATA 169,1,84,160,0,0,24,0,0,8,8,8,8,8,8,0,8,0,8 

TfflTRS,,,, 0,0,8,8,8,8,21,8,0,85,88,8,171,8,2,238,-252,2,235,127, IS, 189,84 
BATA8,63,248,8,178,176,3,170,252,15,106,248,143,85,80,143,85,88,143,65,64 
DR T A128,5,0,8,5,128,0,0,8,0,8,0,0,8,8,0 

BATR0,0,0,0,8,8,8,21,8,1,85,64,8,58,128,15,238,224,63,117,224,5,95,168 
DATA3,255,8,0,42,128,0,149,160,0,117,168,1,86,160,1,95,160,1,163,80 
BRTA0,81,80,0,168,160,2,162,160,0,0,8,0,0,0,0,0,0,0 

HATR0,8,0,0,8,0,8,21,0,1,85,64,0,58,128,15,238,224,63,117,224,5,95,168 
BATA3,255,0,0,86,168,241,86,175,255,93,143,21,85,131,21,85,88,21,85,84 
BATR21,64,186,0,8,18, v3,8,48, 0,8,8,8,0,0,8,0,0,0 

BRTR0-, 0,8,8,0,8,0,0,0,8,84,0,5,85,0,0,234,0,63,187,128,253,235,128 


©exrafo#® mift 
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5/85 






_programme., 

50505 
505 i 0 
58600 
58605 
50610 
50780 
50705 
50710 
58800 
50805 
58810 
50900 
50985 
58910 
51088 
51085 
51010 
51280 
SI 205 
55080 
55805 
55018 
55015 
55820 
55025 
55030 
55035 
55848 
55845 
55058 
55855 
55060 
55865 
55070 
55875 
55080 
55885 


Handbuchreihe fur Anwenderprogramme 

Fast jeder Computerbesitzer kennt dieses Problem: Man kauft fur teures Geld ein Anwenderprogramm und stellt dann 
beim Auspacken test, daB entweder gar keine, eine engiische Oder eine luekenhafte bzw. fehlerhafte Anleitung beigefugt 
wurde. Manchma! liegen zwar umfassende Anleitungen bei, aber man merkt ihnen an, daB sie von den Programmierern 
selbst verfaBt wurden. 

Aus diesem Grund hat nun der Verlag Stefan Gundel begonnen, eine eigene Handbuchreihe herauszugeben. Die 
einzeinen Handbucher sind zwischen 25 und 100 Di N-A4-Seiten stark und erlautern auf leicht verstandliche und einfa- 
che Weise die Funktion der Programme. Alie Handbucher wurden von Anwendern geschrieben und sind entsprechend 
praxisnah. 

Bisher sind Handbucher erschienen fur: 

Multiplan 

Datamat 

Faktumat 

Textomat 

Pascal 64 (DATA-Becker) 

Simon’s Basic 
Wordpro. 3 + 

(Jeweils fur die Commodore 64-Versionen.) Weitere Handbucher, auch fur andere Computer, soiien in Kiirze folgen. 

Die Handbucher sind zum Preis von DIV1 19,80 (Nachnahme) erhafilich beim Verlag Stefan Gundel, Postfach 
28 09, 8500 Niirnberg 1 


riftTfi21,126,160,15,252,0,14,178,0, 63,170.192,15.169,240,5,85,86,5,85,86 
BRTftl65 .■ 86,0, 160,2,2.. 160,0,0,0,0,0,0,0,0,0,0,0 

BRTR8,0,8,0,0,0,1,85,240,1,85,240,2,85,80,10,170,168,10,170,168,43,255 
BRTR'232,41,178,144,41,106,96,5,85,80,5,85,84,5,85,84,5,85,80,1,82,160 
DRTfil,168,8,2,168,0,2,170,8,0,0,0,0,0,8,9,0,8,0 

BRTR8,8,0,8,8,0,3,213,80,3,213,88,1,85,96,10,178,168,18,170,168,10,255 

BRTR258,1,170,154,2,106,90,i,85,84,5,85,84,5,85,84,1,85,84,2,161,80 

BATR8,2,144,0,10,160,6,42,160,8,0,0,0,8,8,0,0,0,0 

BRTR8,8,8,8,8,0,3,8,8,8,8,192,128,8,0,32,208,3,8,8,12,2,10,8,8,138,8 

BRTR2,170,128,18,175,168,43,255,168,175,255,234,188,252,250,188,252,250 .. 

BRTfi 188,252,259 , 191,255,250,175,255,234,43,255,168,19,254,169,2,178,128,0 

DRTR0,8,8,0,0,0,8,0,48,48,32,0,0,8,0,168,200,12,8,8,48,2,10,0,8,138,0 

HR TR2,170,128,10,i75,168,43,255,168,175,255,234,188,252,250,188,252,258 

BRTfi 188 , 252 , 258 , 191,255,258,175,255,234,43,255,168,10,254,160,2,170,128,0 

HRTR8,8,8,0,0,8,0,8,0,8,0,0,0,8,8,0,8,0,3,255,192,15,255,240,60,0,69 

DRIBS 1 ,255,204, 63 , 255 , 252,63 , 255,252,48,0,12,63,255 , 252,63,255 , 252 

DRTR51,255,284,68,8,60,15,255,240,3,255,192,0,9,0,8,0,6,0 

BRTR0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

BRTR0,0,0,0,8,8,0,8,8,0,6,0,15,192,0,63,252,0,85,85,0,21,84,8,0,0,8,0,,, 

BRTR83,240,248, 240 , 240 , 244 , 245 , 245 , 245 

BRTR65,8,0,0,1,5,21,85,85 

BRTA85,10,42,170,i?0,175,175,175,175 

BRTA91,170,170,170,170,255,255,255,255 

BRTR73,160,i68,170,170,250,250,250,250 

HRTR74,10,42,42,43,42,42,42,10 

BRTR79,170,178,178,258,170,178,178,178 

BRTR80,170,178,254,178,170,170,170,179 

BRTR76,170,178,178,179,178,191,178,170 

DRTR75,160,168,168,168,168,168,168,160 

DRT R88, 0 ,0,0, €4 ,80,84,85,85 

BATR98,15,15,15,15,31,95,95,95 

BftTR94,21,3,12,48,48,48, 12,3 

BRTR95,80,8,192,48,48,48,192,8 

BRTR189,0,0,0,0,0,0,63,3 

HRTR110,0,8,8,0,0,9,252,192 

BRTR112,14,28,57,60,63,56,30,15 

BRTfil13,112,24,252,68,156,69,128,240 




werkstatt 






Unter „Autostart“ versteht man ein Programm, das bei Einschalten des 
Computers in den Speicher geladen wird und ohne jeden Eingriff seitens des 

Anwenders automatisch startet 


Ein typisches Beispiel fur ..Autostart’ 1 
sind die Module, die man in den 
Expansion-Port einsteckt. Dlese sind 
meistens beim Einschalten des Com¬ 
puters automatisch aktiviert. 

Die ersten Probleme sind da, wenn 
das Programm auf Diskette Oder 
Kassette gespeichert ist. 


Commodore 64 

Also, was tun 

Wir wollen zuerst untersuchen, was 
fur Moglichkeiten uns, beim C-64, 
zur Verfugung stehen. 

Das erste Verfabren, das eigentlich 
bekannt ist, ware die Betatigung der 
Tasten Shift + Run/Stop. Damit 
wurde das erste Programm, das auf 


Band gespeichert ist, geladen und 
gestartet. Aber diese losung ist an 
den Gebrauch der Kassettenrecorder 
begrenzt. 

Das zweite Verfahren ware, den 
Stack zu manipuiieren, und zwar fol- 
gendermaBen: Der Stack liegt beim 
C-64 im Bereich $0100 bis $01FF, er 


Assembler-listing Nr. 1 


,02C8 

A9 

00 


LDA 

#00 


,02CA 

85 

9D 


STA 

9D 

; LOAD Routine 

,02CC 

20 

D5 

FF 

JSR 

FFD5 


,02CF 

86 

2D 


STX 

2D 

; speichert Ende des Basic Prg 

,02D1 

84 

2E 


STY 

2E 

,02D3 

A9 

83 


LDA 

#83 


,02D5 

8D 

02 

03 

STA 

0302 

; Original Warm-Start Vektor, 

,0208 

A9 

A4 


LDA 

#A4 

; wird zuruckgeschrieben 

,02DA 

8D 

03 

03 

STA 

0303 


,02DD 

A2 

06 


LDX 

#06 


,02DF 

86 

C6 


STX 

C6 

; kopiert die Befehle 

,02E1 

BD 

EC 02 

LDA 

02EC.X 

; Load + Return 

,02E4 

9D 

76 

02 

STA 

0276.X 

; Run + Return 

,02E7 

CA 



DEX 


; in die Tastaturpuffer 


,Q2EA 

,02ED 

,02 FO 
,02F1 
,02F3 
,02F6 
,02F9 
,02FC 
,02FF 
,0302 
,0303 


DO F7 
6C Q2 03 

4C CF QD 

52 

D5 0D 
20 20 20 
20 20 20 
20 20 20 . 
20 20 20 
20 8B E3 
C8 
02 


BNE 02E1 
JMF {0302) 

JMP ODCF 


CMP 0D,X 
JSR 2020 
JSR 2020 
JSR 2020 
JSR 2020 
JSR E38B 
INY 


; indirekter Sprung zum Warm-Start 
; L+(Shift) 0 + Return 

; R+(Shift) U + Return 
; Platz fur den Namen des Programmes 


; Vektor Routine Fehiermeldung 
; Vektor Routine Warm-Start 






wird zum Ablegen von ROcksprung- 
adressen benutzt. Nach Beendigung 
einer Routine (z. B. LOAD) holt sich 
der Prozessor vom Stack zwei Bytes 
und springt die Adresse an, die sich 
aus diesen beiden Bytes ergibt. 

Also muBie man diese Adresse so 
andern, daB der Prozessor nicht an 
die eigentliche Rucksprungstelle 
springt, sondern auf eine eigene Rou¬ 
tine. N un, wir wissen nicht genau, wo 
die Adresse geholt wird. Da bfeibt 
uns nur noch die Moglichkeit, den 
ganzen Stack mit der von uns ge- 
wunschten Rucksprungadresse zu 
belegen. Dann wird das Maschinen- 
programm, auf das unsere Adresse 
zeigt, direkt an den Stack angehangt. 
Von diesem Startprogramm wird 
dann das Hauptprogramm ange- 
sprungen. 

Der Nachteil bei diesem Verfahren 
ist, daB man den Spetcherbereich 
von $0100 bis $07FF und zusatziich 
das Hauptprogramm mitabspeichern 
muB, und das kostet sehr viei Zeit. 
Aber was wir machen werden, ist 
folgendes: Vorerst ein Blick auf die 
Speicherbelegung des C-64 

$02C8-$02FF nicht benutzt 
$0300~$0301 Vektor Routine 
Fehiermeldung 
S0302—$0303 Vektor Routine 

Warm-Start 


Wie man daraus ersehen kann, sind 
die SpeicherpSatze von S02C8 bis 
S02FF frei, und das ermogiicht uns, 
an diese Stelle die Speicherung un~ 
serer kletnen Maschinen-Routine 
(siehe Listing 1) zu iegen. Was uns 
aber noch interessiert, sind die Spei- 
chersteilen $0302, $0303, die den 
Vektor fur die Warm-Start-Routine 
enthaiten. 

Fur die, die es nicht wissen sollten, 
sei gesagt, daB jedesmai, wenn der 
Computer sich mit READY meldet, er 
einen Sprung zur Warm-Start ge- 
macht hat. Das heiBt, diese Routine 
wird angesprungen, jedesmai, wenn 
der Computer eine Operation been- 


det hat, z. B. bei dem Befehi END, 
Oder, und das ist fur uns wichtig, 
nach Beendigung des Load-Vor- 
gangs. 

Was wir jetzt tun rniissen, ist, den 
Vektor Warm-Start so zu verandern, 
daB er auf unsere Maschinen-Routi¬ 
ne zeigt, die ab Adresse $02C8 an- 
fangt. Dies erreicht man, indem man 
den veranderten Vektor mitabspei- 
chert, wie beim Assembler-Listing 1 
zu sehen ist. Zuvor werden die Befeh- 
le Load und Run in die Tastaturpuffer 
kopiert. 

Mit dieser kleinen Routine kann man 
schon, nach dem Load, jedes Basic- 
Programm automatisch starten. Vor- 
ausgesetzt, es liegt ein Programm im 
Speicher. 

Aber das ist nicht unser Ziei. 

Wir wollen beide Programme in eines 
zusammenfassen, deswegen wird Li¬ 
sting 2 gebraucht, 

Mit dem ersten Teil wird die Auto¬ 
start-Routine von S02C8 bis $0303 
mit der Sekundaradresse 3 (siehe 
Zeichnung) abgespeichert. Nachdem 
dieser Vorgang beendet ist, wird 
durch den noch mal veranderten Vek¬ 
tor der zweite Teii angesprungen, der 
das Hauptprogramm mit der Sekun¬ 
daradresse 1 abspeichert. 
AnschfieBend werden die Speicher- 
stellen $0302, $0303 in den ur- 
sprunglichen Zustarid versetzt. 


Zeichnung 


03 

;C8 

; 02 

: 04 

o 

CO 

: 20: 

20 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

0 

0 

0 

0 

0 

0 

0 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

F 

C 

D 

E 

F 

0 

1 

F 


Zusammensetzung der Speicherstef- 
le im Kassettenpuffer nach dem La¬ 
den der Autostart-Routine. 

Der erste Wert (in $033C) schlieBt 
auf den File-Typ: 01 => Programm; 
02 -> Sequentiell; 03 -> nicht 
Reiokatibel. 
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_werkstatt 

Der Zweite und Dritte sind die An- 
fangsadressen in der Reihenfolge 
LSB, MSB. 

Der Vierte und Funfte die Endadres- 
se des Programmes. 

Ab der Sechsten steht der Filename 
in ASCII-Code. 


Schutz von 
Proarammen 

Sicherlich, die Moglichkeit, ein Pro¬ 
gramm automatisch zu starten, ist 
schon an sich eine gute SchutzmaB- 
nahme. 

Man kann aber zusatziich noch vor 
den JMP(0302), siehe Listing 1, die 
wichtigen Vektoren andern. 

Diese waren z. B.: 

$0306, $0307 Vektor List 
$0316, $0317 Vektor Brk 
$0318, $0319 Vektor N mi-Restore 
$0328, $0329 Vektor Stop 
$0332, $0333 Vektor Save 


Proqramm- 

beschreibuno 

Das komplette Programm liegt als 
Basic-Loader vor, wird mit V-A' ak- 
tiviert und nach den neuen Namen 
gefragt. Hat man es eingegeben, so 
kann es neu abgespeichert werden. 
Die Lange des Namens darf jetzt 
hochstens 13 Zeichen enthaiten, falls 
man mehr eingegeben hat, bleiben 
diese unberucksichtigt. 

Das Programm belegt den Bereich ab 
$9000, wobei noch zu sagen ist, daB 
der Basic-Ende-Zeiger auf diese 
Adresse zeigt und dadurch vor Ober- 
schreibung geschutzt ist. 




werkstatt_ 

AUTOSTART 

Assembler-listing Nr. 2 


,90 CC 

A9 01 

LDA #01 

Log. file Nr. 

,90CE 

AA 

TAX 


,90CF 

AO 03 

LDY #03 

Gerat Nr. => 1 fur Kassette 

,90D1 

20 BA FF 

JSR FF8A 

Sekundaradresse 3 

,90 D4 

A9 OD 

LDA #0D 

Setffs (OPEN) 

,9006 

A2 F3 

LDX #F3 

Namenslange 

,9008 

AO 02 

LDY #02 

Adresse wo der Name steht 

,90 DA 

20 BD FF 

JSR FFBD 

Setnam (File-name) 

,90 DD 

A9 C8 

LDA #C8 

Anfangsadresse der Autostart-Routine 

,90 OF 

85 FB 

STA FB 

wird in Zero-Page gespeichert 

,90 El 

A9 02 

LDA #02 


,90 E 3 

85 FC 

STA FC 


,90 E 5 

A9 FB 

LDA #FB 


,90 E 7 

A2 04 

LDX #04 


,90 E 9 

AO 03 

LDY #03 

End Adresse des Autostart 

,90 EB 

20 D8 FF 

JSR FFD8 

SAVE Routine 

,90 EE 

A9 93 

LDA #93 

loscht den Bildschirm 

,90 FO 

20 D2 FF 

JSR FFD2 


,90 F3 

A9 9E 

LDA #9E 

Der Warm-Start Vektor 

,90 F5 

8D 02 03 

STA 0302 

zeigt auf die nachste 

,90 F8 

A9 90 

LDA #90 

Sprungadresse 

,90 FA 

80 03 03 

STA 0303 


,90 FD 

6C 02 03 

JMP (0303) 


,909 E 

A9 01 

LDA #01 


,90A0 

AA 

TAX 

OPEN 1,1,1 

,90A1 

A8 

TAY 

= > 1 ais Sekundaradr. steht fur Programm 

,90A2 

20 BA FF 

JSR FFBA 

Setfls 

,90A5 

A9 OO 

LDA #0D 

Programmname 

,90A7 

A2 F3 

LDX #F3 


,90A9 

AO 02 

LDY #02 


,90AB 

20 BD FF 

JSR FFBD 

Setnam 

,90AE 

A5 2B 

LDA 2B 


,90 BO 

85 FB 

STA FB 

ladt Anfangsadresse ins Basic-Programm 

,90 B2 

A5 2C 

LDA 2C 

und speichert in Zero-Page 

,90 B4 

85 FC 

STA FC 


,90 B6 

A9 FB 

LDA #FB 


,90 B8 

A6 2D 

LDX 2D 

ladt Endadresse ins Basic-Programm 

,90 BA 

A4 2E 

LDY 2E 

,90 BC 

20 D8 FF 

JSR FFD8 

SAVE Routine 

,90 BF 

A9 83 

LDA #83 


,90C1 

80 02 03 

STA 0302 

Original Warm-Start Inhalt 

,90C4 

A9 A4 

LDA #A4-^ 

wird wieder gesetzt 

,90C6 

8D 03 03 

STA 0303 

,90C9 

4C AE A7 

JMP A7AE 

Muck zum Interpreter 
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werkstatt 


IS REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

17 REM 



RUTOSTflRT 

=- 

-- 

FUER C-64 

-- 

SS» 

CO BV C 1985> 

== 

=ss 

S. VRLENTIHO 

ssss 

=3S 

FRfiNKFURTERSTR. 285 

,J " ’ ■ 

ssa 


3S 


100 PRINT"3" :FORT*1TO11•PRINT•NEXT : PRINTTfiBC14>"BITTE WfiRTEN!” 

110 FGRV=36864TQ37332•RERBQ:PGKEV,Q:S=8+G*NEXT 
120 IFSOS1274THENPRINT"FEHLER IN DRTR'S! “ : ENB 
130 POKES5, 0: PQKE56,144 = SVS36864 

32000 BRTR169,241,141,33,208,169,242,141,32,208,160,0,185,63,145,32,210,255,200 

32001 BRTR192,128,144,245,169,34,141,8,3,169,144,141,9,3,96,32,115,0,240,4,201 

32002 DRTR95,240,3,76,231,167,32,115,0,201,65,240,10,76,8,175,234,234,234,234 

32003 BRTR234,234,234,32,115,0,160,0,185,99,144,32,216,255,208,192,43,144,245 

32004 BRTR160,0,32,87,241,153,43,145,200,281,13,240,4,192,13,208,241,76,142,144 

32005 DRTR147,13,13,13,13,32,78,69,85,69,32,78,65,77,69,32,68,69,83,32,65,85 

32006 BRTRS4,79,83,84,65,82,84,45,88,82,79,71,82,65,77,77,13,13,32,61,62,160 

32007 BRTR0,185,0,145,153,200,2,208,192,60,208,245,76,192,145,169,1,170,168,32 
32888 DRTR186,255,169,13,162,243,160,2,32,189,255,165,43,133,251,165,44,133,252 

32009 BRTR169,251,166,45,164,46,32,216,255,169,131,141,2,3,169,164,141,3,3,76 

32010 BRTR174,167,169,1,170,168,3,32,186,255,169,13,162,243,160,2,32,189,255 

32011 BRTR169,200,133,251,169,2,133,252,169,251,162,4,160,3,32,216,255,169,14? 

32012 BRTfi32,210,255,169,158,141,2,3,169,144,141,3,3,108,2,3,169,0,133,157,32 

32013 BRTR213,255,134,45,132,46,169,131,141,2,3,169,164,141,3,3,162,6, 134,193 

32014 BRTR189,236,2,157,118,2,202,288,247,188,2,3,76,20?,13,82,213,13, 32,32,32 

32015 BRTR32,32,32,32,32,32,32,32,32,32,139,227,200,2,0,8,0,147,13,13,32,32,32 
32016-, BRTR32,32,32,32,32,32,32,213,132,192,192,192,192,192,192,192,192,192,192 
3201? BRTR192,192,192,192,192,132,192,201,13,32,32,32,32,32,32,32,32,32,32,194 
32818 BRTR32,32,65,85,84,79, 83,84,65,82,84,32,58,32,35,65,32,32,134,13,32,32 
32013 DRTR32,32,32,32,32,32,32,32,134,32,40,67,41,32,83,46,32,86,65,76,63,78 

32020 BRTR84, 73,78,73,32,194,13,32,32,32,32,32,32,32,32,32,32,282,192,132,132 

32021 BRTR192,192,192,192,192,192,192,192,192,192,192,132,192,192,192,283,13 
32822 BRTR13,0,169,13,32,210,255,168,0,163,32,153,43,145,200,132,13,288,248,76 
32023 BRTR204,144,0 


Das umfangreiche Softwareprogramm 


Ob Ste professioneile Programme zur Arbeitserleichte- 
rung suchen, auf einfachem Wege die Programmierspra- 
che Basic iernen wollen Oder sich von phantastischen 


Spielen mitreiBen lassen wollen - bei Commodore 
finden sie immer ausgereifte Software, die laufend erwei- 
terd wird. Mehr daruber im groBen Commodore 64 
Software-Katafog. 
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programme 



Das Programm „$equenzer 64“ po¬ 
ked naeh dem Start mit „RUN“ zu- 
nachst die Werte fur das Maschinen- 
programm. Da es nicht ailzu viele 
Data-Werte sind, wurde auf eine ge- 
nauere Prufsummenroutine verzich- 
tet. 

Dann erseheint auf dem Bildschirm 
das Hauptmenue, wobei man folgen- 
de sechs Unterprogramme aufrufen 
kann: 

1. Das im Speicher befindliche 
Musikstuck wird abgespielt. Dabei 
kann man die einzelnen Stimmen mit 
Hilfe der Funktionstasten ein- und 
ausschalten, Dieses wird durch einen 
iniftupt ermogiieht. 

2. Die Parameter des SID (Sound 
Interface Device, Soundchip) werden 
gesetzt. Hierbei konnen fur jede 
Stimme festgelegt werden: 

a) der Wert der Welienform, der so 
eingegeben werden muB, wie u. a. im 
Commodore Handbuch beschrieben, 
also: 

128 = Rauschen 
64 = Rechteck 
32 = Sagezahn 
16 = Dreieck 

Es ist auch die Kombination zweier 
Weilenformen moglich, z. B. erzielt 
man mit Welienform = 80 (Rechteck 
+ Dreieck) einen metallischen Klang. 
AuBerdem kann mit der Welienform 
das Synchronisations-, das Ringmo- 
dufations- und das Testbild gesetzt 
werden, indem man den jeweiligen 
Wert addiert: 

Synchronisation: 2 

Ringmoduiation : 4 

Test (Osz. aus) : 8 

Uber die Bedeutung und die Auswir- 

kung dieser Bits kann hier nicht aus- 

fuhriieh gesprochen werden. 

b) Die Werte der Huilkurve (Attack, 
Decay, Sustain, Release; siehe 
Commodore-Handbuch), fur die je- 


weils ein Wert zwischen 0 und 15 
angegeben werden muB. 

c) Die Pulsbreite, die jedoch nur bei 
Rechtseckschwingungen von Bedeu¬ 
tung ist. 

Nach den Werten fur die drei Stim¬ 
men konnen auch noch die Werte fur 
die Filter gesetzt werden und zwar 
foigende Parameter: 

a) Der Filtermodus (0 -15), von dem 
die einzelnen Bits foigende Bedeu¬ 
tung haben; 

BitO 1 - TiefbaB 

Bit 1 2 = BandbaB 

Bit 2 4 = HochbaB 

Bit 3 8 = Stimme 3 aus 

b) Filterverteilung, die angibt, welche 
Stimmen uber den Filter geleitet wer¬ 
den. Die Bedeutung der Bits: 

Bit 0 1 - Stimme 1 wird gefiitert 

Bit 1 2 = Stimme 2 wird gefiitert 

Bit 2 4 « Stimme 3 wird gefiitert 

Bit 3 8 « Signal am Audio-ln- 

Eingang wird gefiitert 

c) Die Fiiterfrequenz (0 - 2047) gibt 
an, ab welcher Frequenz der Filter 
arbeiten soil. 

d) Die Filterresonanz (§-15) gibt an, 
wie stark der Filter mit der gefilterten 
Stimme „mitSGhwingt“. 

SchlieBlich kann auch noch die Laut- 
starke (0 - 15) sowie die Geschwin- 
digkeit des Abspielens (0 - 255) ejn- 
gegeben werden, wobei 1 die schneil- 
ste und 255 die langsamste Ge- 
schwindigkeit ist. (0 ist ungefahr ge- 
nauso langsam wie 255). 

3. H ier wird die eigentiiche Melodie 
eingegeben und zwar ist fur einen 
Ton die Eingabe von drei Werten 
notwendig: 

a) Angabe der.Oktave des Tones (0 - 
7), wobei 0 dieHiefste, 7 die hbchste 
Oktave ist. 

b) Hier wird die eigentiiche Note 
eingegeben. Zulassig sind 14 ver- 



schiedene Zeichen, davon 12 fur die 
Tone der Oktave. Die Zeichen sind 
im Programm dargesteilt. 

AuBerdem ist ein Pausenzeichen vor- 
gesehen, das wie eine normaie Note 
gezahlt wird. Mit dem Zeichen „Z“ 
kann man in der Eingaberoutine ei¬ 
nen Sehritt zuruckgehen, das heiBt, 
der vorher eingegebene Wert wird 
angezeigt und kann neu bearbeitet 
werden. Wenn man vom 1. Ton zu¬ 
ruckgehen will, so geht das Pro¬ 
gramm zum Hauptmenue zumck, un- 
afahangig davon, welche Stimme ge~ 
rade bearbeitet wurde. 


c) Die Dauer eines Tones wird ange¬ 
geben im Kehrwert des riehtigen No- 
tenwertes. Hat man also z. B. einen 
Notenwert von 1/2, so gibt man 2 
ein, denn 2 ist der Kehrwert von 1/2. 
Das gilt auch fur kompliziertere No- 
tenwerte, wie z. B. eine punktierte 
Viertel, die einen Notenwert von 3/8 
hat. Auch hier muB der Kehrwert ge~ 
bildet werden. (3/8; Kehrwert = 8/3) 
8/3 ist gleich 2:66, also muB man 
eingeben: 2.66666666. 

Bei der Eingabe von 0 als Dauer 
schreibt das Programm in die gerade 
zu bearbeitende Speicherzelle, den 
Code fur Pause und die Dauer 0, 
woran das Maschinenprogramm er- 
kennt, daB diese Stimme fertig ist. 
Das Eingabeprogramm geht dann zur 
Eingabe der Noten fOr die nachste 
Stimme Ober. 


4./5. Speichern und Laden. 

Dafur sind zwei Masehinensprache- 
routinen vorgesehen, die Daten der 
Melodie ailer drei Stimmen und die 
zuletzt verwendeten SID-Werte auf 
Cassette schreibt, bzw. von Cassette 
liest. Es handelt sich bei dem Spei- 
eherbereich um die Adressen 38400 - 
40959 (hexadezimal: 9600 - 9 fff). 


6. Oktav-Anderungen 
Hierbei hat man die Moglichkeit, die 
gesamten Noten einer Stimme um 
eine Oktave nach oben Oder nach 
unten zu verandern. 
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Noch etwas zum Maschinenpro- 
gramm; 

Die Daten liegen jeweiis ab der foi- 
genden Adresse: 

Stimme 1 ; 9600 (hexadezima!) 
Stimme 2: 9900 
Stimme 3 : 9cOG 

Jede Stimme hat also 768 Speicher- 


platze zur Verfugung, das heiBt, daB 
384 Tone pro Stimme gespielt wer- 
den konnen, wei! jeder Ton aus zwei 
Werten besteht (Tonzahl und Dauer), 

Die Tonzahl gibt an, weiche Fre- 
quenzwerte das Masehinenpro- 
gramm aus einer Tabelie iiest. Die 
Dauer wird in einen Zahler geschrie- 


ben, der bei jedem Durchlauf herun- 
tergezahlt wird. 1st dieser Zahler auf 
Null', dann wird der nachste Wert 
gehoit, usw. 

Der Interrupt setzt je nach Tasten- 
druck das entsprechende Testbit der 
betreffenden Stimme, bzw. ioscht es, 
so daft der Osziiiator der Stimme 
ausgeschaltet wird. 


10 

28 

38 

40 

bn 

60 

70 

80 

i88 

118 

128 

130 

140 

150 

168 

200 

218 

2b0 

260 

270 

280 

290 

300 

310 

320 

330 

348 

350 

368 

365 

370 

380 

385 

398 

480 

410 

428 

438 

440 

445 

438 

460 

470 

480 

498 

492 

494 

496 

498 

500 

318 

528 

530 

548 

538 

568 


PR IN 
PR IN 


"HML5J 

it Mtasr ^ j 


POKE53280,5 JP0KE53281,13 = P0KE646,0 

POKES1,0;PGKE52,144:PGKE53,0 = P0KE54,144:FGKE55,0 

Ail PI 1$ a P3£21 82 C 2 i > 

LiGBLlD 10008 

SE0UEN2ER £4S". 

PR I NT " jffittklL1 } MELOKIE ftBSP I ELEN 11 
PRINT li mi 2j SIli-WERTE RENBERN 11 
PR I NT “HIE 3 3 NEUE MELD'D IE EINGEBEN" 

PR I NTJS*iC4J MELOD IE ft BSPEICHERN " 

J1ELUU11 LADEN" 

OKTHV-AENDERUNGEN" 

OE ■ iFft*~“ “THEN 130 
ft-VHL<H$>:IFft<10Rft>6THEH138 
DN ft GOTO 200 j230j000j 1200.< 1308M400 
0010138 
DUSIJiJ 2000 
SVS36864 ; 001030 
PR1NTCHE$£147 ) 

PUR J »1103 

W £ T ? *PEEK i. 409284 < T-D *7+4 > 

RD <T> -PEEK C 40928+ 0-1 > *7+3 > 

SR CI> aREEKC40928+ <T -1 >*7+6) 

TL £ T>-PEEK£40928+ O-1>*7+2) 

TH £ T >=PEEK£40928+£T-i> *7+3> 

NEftTT 

RG-PEEKt40928+23): LG*PEEK £ 40928+24 ') 

OL»PEEK<48928+21> : QH=PE£K£40928+22) 

FR* £RGANB240 >/16•FV=KOftND15 


PGKE56,144:P0KE656,255 


FQ sa QH*S+QL : P i =5 £LGftND240}/16 : LFNLGfiNB15 
GE-PEEK£37425 ) 

FGRT-1T03 

PRINT'TUUifl'T 1 !. STIMME" 

PRINT " JBKBI4ELLENFURM: 11 J W£T>RNB254 

PR I NT 11 JttlATTACK : "iC RB < T >RND240 > / i 6 

PR I NT " JSSIDECftV : “ ;ftD<T> RND15 

PR I NT" JS3M3JJSTft IN: *'; £ SR < T > RND246 ) /16 

PR I NT" JMRELEASE : " J SR CT > AND 15 

PR l NT“BUIFULSDREI i'E: "iTLCT>+25£*TH<T> 

; w<T> 

INPIJ1 “ »*»» j ft C T > 

i nput " ; li a > 

INPUT ".slftiiMifeifel"; 8£T) 
i npu r; R < i > 

INPUT" j^ikkiiMifeaiiif" j th(T> 

X PR £ J ) CULlRft £ r »l STHEN440 
IFD C I' ) CUUftD £ T.? >15THEN440 
IFSCf>C80RS<T ) >15THEN440 
I PR (! ) <0GR8 < T ;* > 15THEN440 
l FT ft c; T > C0QRTR < T > >4095THEN440 
HD O' >aft ( T J<*ib+D£ T ) 
src r >=scrj*i6+R<f) 

THO > = 1N I <THCn/25b) : TLCT)sTfla>-TH<T>*256 
POKE40928+O-i>*7+5^ ftD(T) \ 

PGKE40928+ i T~ 1 >*7+6.* SR£T> \ 

POKE40928+ i T-l) * 7+2 > t'L i T ) 

P0KE48928+<T-1>*7+3,TH<T> 


tswS**”* 


low 


Dieses leicht verstandliche, durehge- 
hend illustrierte Anwenderhandbuch 
vermittelt das notige Wissen fur den 
Umgang mit dem Commodore 64 
und seinen Zusatzgeraten. Dem An- 
fanger bietet das Buch 
® eine Anleitung fur den Aufbau 
und den Betrieb des C 64 und 
seiner Peripherie 

# eine vollstandige. Einfuhrung in 
die C64 BAS! C-Programmie- 
rung 

• eine Darstellung der besonderen 
Grafik- und Tonfahigkeiten des 
C 64. 

Dem fortgeschrittenen Benutzer dient 
das Buch als unschatzbares Arbeits- 
mittel und Nachschlagewerk. Es ent- 
halt eine detaillierte Ubersicht aller 
BAS! C-Statements und Funktionen, 
ein ausfuhrliches Verzeichnis der 
Speicheradressierung zusammen mit 
einer Erklarung, was jede adressier- 
bare Speicherzeile leistet und wie sie 
arbeitet, und einen besonderen Ab- 
schnitt zur fortgeschrittenen Color- 
grafik und Sprite-Grafik. 

ISBN 3*89028-016-1, April 1984 
446 Seiten, DM 39,80 
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programme 


9b 5 
970 
98U 
990 
1000 
1010 
1020 
1030 
1040 
1050 
I860 
107*0 
I860 
1090 
1100 
1200 
1210 
1220 
1230 
1240 
1250 


POKE40928+ T- 1 > ¥7+4, H <. T ) 

NEXH 

PR 1NTCHR* (147) - 

PR I NT" tiHUMr I LTERMOllUS : "JFI 1 

PR 1 NT 11 m FILTERVERTEI LUNG: 11 ; FV _^= . . 

PR 1 NT" JSMF1 LTERFREQUEN2 = " i FQ S * 

PR IN 1 “ JfifcF ILTERRESGNftNZ : H ;FR Sc f 9 t 

PR IH!" JttLftUTS IRERKE : 11 > Lft i ^ - \ 

PR I NT “ BMfelGESCHM I HU IGKE1T '• M jGE • 

INPU T *■ ftteipJiiWiPiPiSiftiiiiSiiiii 1 '; F1 

l NPUT ■* s*a*siw»**#«wif **M »»rFV A\}\ Ui 

i NPUT j fq / / 

INPUT" j fr 

i NPUT" ifrift iifti"; LR 

i NPUT" ; GE jfcFVt 

IFFIC0QRFI>iSTHEN660 *3fci 

IFFVC0DRFV>15THEN660 

IFFR<.0DRFR>15IHEN660 

1 FLH<0QRLR>15THEN660 

IF6E<80RGE>2551HEH660 

1FF(XBORFQ>2047THEN660 

LG=LR+FI¥16 

RG=FV+FR¥16 

GL®FQfiNft7: SH*(FtHaL)/8 
PQKE40928+21; QL:P0KE48928+22,QH 
PQKE40928+23;RG:P0KE48928+24, LG 
P0KE3?425,fiE 
GO f050 

PRINT'L’UOIFOLGENUE NOTENSVMBOLE SIND ZULflESSIGiM" 

FORT*0TO13 

PRINT 1 "ir'TJia) 

NEKTT 

PRINT"MRLTE NOTEN LOESCHEN U/N> ?" 

GETtt*: l FA$®"N“THEN850 
I FflfO " J 11 THEN833 
FORT-384007040703:POKEt,0 = HEKTT 
PR 1 NT riPMPJit I HORDE DER NOTEN" 

FOR1*0TO2 : T-0 

PR 1 NT" S^MPMW’ i X+l; “ - STIMME" 

6OSUB3080 

I NPUT 11 < 8-7 >"; 0 

INPUT M MMdMNOTE ";N$ 

N®8 

I FT$ <N> ~N$THEN950 
N-N+l 

IFN<14THEN920 

IFN*12THEN0*0 = N®100 = FL®1 

IFN®13THENT®f-2•IFT>®0THENGOSUB3000•OOTO880 

IFIC0THENGD1050 

1FN>-14RNDHC>100THEN8S0 

INPUT"jffl»ifiJftUER a/TO "ill 

IFD=0 fHEN1070 

NW=0¥12+N 

• IFINTC132/B+.5 ) <0ORINT<132/D+.5)>255THEN880 

PGKE38400+I % 768+T>NW 

POKE3S401+1* 768+T,INT<132/D+.5) 

T*T+2 

IFT >768 fHENGOTO1090 
GOTG870 

POKE3S400+1¥768+73 180 
POKE38401 +1¥ 768+T,0 
NEXT I 
GOTO50 

input 1 ":uxmm bezeichnung <.? zeichen> h ;ze^ 

IFLEN (, ZE$) <7THENF0RT« 1T07-LEN < ZE$ > : 2E$ S ZE$+“ " : NEXTT 
FORT® 1 TO?: ZE®RSC<riID$ CZEt* 1A > > =f 0KE37686+T, ZE: NEXTT 
PR I NT " mUMBE RETURN J DRUECKEN, WENN BAND BEREIT" 

GErA$:IFftK>CHR*<13>THEN1240 
PR INT " m u i = SVS37648 







iffl \ 
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:,:■ ,, * Music Processor 
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Musical Keyboard 

V ,.;.[» i, v ni (1(11 3t*V; 

Zb ■ ©rsicnjriftc&&$ 

'' , J>< >- j " K *<j2'> u Sytfbe't?©' 
csder Oitowe t • £if>w> Be'-- ’k vgr 

' •■’ s, ',, ,1J _'t jtjyij <• 

&!«■'•> v '".'l Ait.ir-T’ ' f 1 
bZo vfb^>, Sfe'k©< wAff) s* 2t/ “o 1 >‘1 


Kawasaki Synthesizer 

dieses P/^'nsmR' enac&to^-jjjr^rn: 
';'; CoY.pU*«T «>'«©* J) f tgHJ fl ?ln>f 
,' ti '*eA Sy^fNs ‘Off W'i M-ii ife 


Kawasaki Rhythm ftodcet' 
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- ', tei* ng tgt>d© r > 


‘lx 


V "ffasdieffuj it •TU-(di(fi'^'d : Fc <*!• t*'«- 

'', \U,t £<• ii© -iyfiiT.oiib &ifv Dfw'ifl a 
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On-Stage 

lir'gbsf^abseW '^S'Si’C- 
; w>hwg't!'2 OSif •Sa 1 k_' c Hifs 
irft <cj»si,-;:f ,•¥ -i 8^3^' -Rfiytk- 
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3001 Sound Odyssey 

3 i O’ 91 1 < i' f! r 1 «* ' 'i 1 

?dg» fej}fisffti;het Musi^, ifidfir Si® 

■ ‘-’tii ■ne^sTfei'* 5 d- 
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programme 


EIN 

cm 

LF33 

IF51 


HUS " 
IF21 " 
CF43 " 
tFS3 " 


1260 60X050 

1380 IHFUT'TMeJiJl BE2EICHNUHG <? 2E1CHEN) '‘J2£$ 

1310 1FLEN i. 2E$ > C7THENFORT»1T07-LEN< ZE$ ) • 2E**ZE$+“ “ : HEKTT 
1320 FOR 1 = 1X0 7 ■ 2E--RSC ( M i M (2££ P0KE37686+T, 2E : NENTT 

1330 PRINT 11 WsIRiMCRETURN3 BRUECKEN, WENN BRNB BEREIT" " 

1 340 GETR$ • 1 FfteOUHR$ < 13 > THEN 1340 
1350 PRINT* 1 SKI" , :SV337696 
1360 001050 

1400 INPUf'raXWfcWELCHE STIMME "JSM 
1410 1 FSf‘K 1 0RSM>3THEH 1400 

1428 PRiNT 11 WfeiERHGLHEN <H> ODER SENKEH <L> ? ,! 

1438 GETfi$ : IFR$0"H“RNBR$0"L"THEN 1438 
1448 iFH$«"H•'THENV2-i 
1450 IF m* " L “ THENV2»~1 
1468 FORT=0TO?66STEP2 . 

14 70 NE-PEEKC33408+ <SM-1> *?68+T> 

1480 IFWE=108DRWE+12*VZ<=0GRUE+12#V2>=97THEN1588 
1430 POKE3S400+<SM-1>*?68+T,WE+12*V2 
1435 1FPEEK (38401 + < 8iT-1 > *?68+T > ~0'THENT=766 
1508 NEXTf 

1510 PRlHV'mtlfO * kUECKKEHR 2U HRUPTMENUE" 

1520 PRINT"WML03 - NGCHMRLS OKTftV-VERRENBERUMG" 

1530 GETR$ : IFfi$="ft “ THENGOTOS0 
1540 I FftiO" 0" THEN 1530 
1558 GOTO1400 
2800 PR l NT " 3UBVBIST I MME 
2810 PR I NT "MM i 

2828 PRINT "law 2 
2838 PRINT"l«ai 3 
2848 RETURN 

3080 NOPEEK«. 38400+1 *768+1 > 

3018 0=1NT(NU/12> 

3020 \P*N0-i2#0 
3830 1FNO-100THENP®12 
3048 N$s?T$(P2 

3050 BOPEEK < 38481 +1*768+1' > 

3055 lFJjU~0TH£Nl!~Ll: 00103068 
385? 3J-192/JJU 
3068 PR I NT “ MWWWWRlWWPJlil 
3870 PR IN T" WSiilOKTft VE <8-?> 

3888 pr i n r “ mwmrE 

3890 PR I NT “ MflBfelDRUER > 

3108 RETURN 

18000 FORT-01028•RERBR2<T >■NEXTT 
18010 FORT-01020:RERBP8< T> : NEXTT 
10820 FORI*0X020 

18038 F0RT~8T0RZ(I)■RERBR•PGKE36864+2,fi:PR-PR+fl:Z=Z+1•NEXTT 

10048 1FPS<;I>OPkfHENPRINT"BRTR-FEHLER INNERHflLB BER "I + l". 47 WERTE" = EHB 

10050 PR«0 : NEXT! 

10060 FORT«0TG13•REhDTiCT) ; HENTT 
10865 RETURN 

10870 BRTR46, 46, 46, 46, 46.. 46, 46.< 46.. 46,. 46.. 46, 46, 46.< 46, 46, 46, 46, 46.- 46, 46, 32 
10088 BRTR 7898,6588,7298,5734,4324.-6189,5963, 4610, 7164,4151,6692,6149,6876 
18098 BRTR 6196,728,1157,2188,5658,5943,6738,4165 

10101 BRTR32,98,147,169,0,133,2,133,6,162,26,189,224,159,157,8,212,282,288 

18182 BRTR247.169,0,133,250,133,252,133,254,169,158,162,153,168,156,133,251 

18183 BRTR134,253,132,255,162,8,161,258,234,168,185,54,146,141,8,212,185,166 

18184 BRTR146,141,1,212,162,0,161,252,234,168,185,54,146,141,7,212,185,166 
10105 BRTR146,141,8,212,162,0,161,254,234,168,185,54,146,141,14,212,185,166 
10186 BRTR146,141,15,212,238,258,288,2,230,251,238,252,288,2,238,253,238,254 
1810? BRTH288,2,230,255,162,8,161,250,234,133,3,162,8,161,252,234,133,4,162 

18108 BRTR8,161,254,234,133,5,173,228,159,9,1,141,4,212,141,253,159,173,235 

18109 BRTR159,9,1,141,11,212,141,254,159,173,242,159,9,1,141,18,212,141,255 
10110 BRTR159,198,3,198,4,198,5,i65,3,288,3,32,216,144,165,4,208,3,32,72,145 

18111 BRTR165,5,288,3,32,184,145,32,38,146,165,2,41,7,261,7,288,218,169,8,141 

18112 DRTH4,212,141,11/212,141,18,212,96,165,6,41,1,208,34,169,5,133,3,24,181 
10113 BRTR4,133,4,169,5,24,181,5,133,5,173,253*459,41,254,141,4,212,141,253 

18114 BRTR159,165,6,9,1,133,6,96,165,6,41,254,133,6,230,258,288,2,230,251,162 

18115 •BATHS,161,250,234,168,185,54,146,141,0,212,185,166,146,141,1,212,238 


IBISISKBIISBGii CT+2 V2". TON* 1 

i";o 

iBiiHNii"; m 

BIBBIIlKiflHHKI"; I> 
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programme 


10116 

1011 ? 

10118 

18119 

10120 

10121 

10122 

18123 

18124 

18125 
10126 
1812 ? 
10128 
18123 
10138 

10131 

10132 
18133 
10134 
18135 
10136 
1013 ? 
18138 
18133 

10148 

10141 

10142 
18143 

10144 

10145 
18146 
1014? 
18148 ' 

10149 

10150 


DATR250* 288.. 2 * 230.«251*162* 0 *161.. 250 * 234*201*0* 248 * 18 * 201 * 255 * 248 * 20 * 133 
BRTrtS* 173*253* 159*9* i* 141*4*212* 141* 253* 159*36* 165*2*9*1* 133*2*96*0*0 
BR f R165 *6*41*2* 208 * 34 * 169 * 5 * 183 * 4 * 24 * 101*8* 188 * 3 * 169 * 5 * 24 * 101 * •-. * 1 o 8*5 
HR f R1 . ; '3* 254* 159*41*254* 141* 11*212* 141*254* 159* 165*6*9*2* 133*6*96*165 
BRT R6 * 4 1 * 253 * 133 * 6 * 238 * 252 * 208 * 2*239*253*162*0*161*252 * 234 * 168 * 185 * 54 
IIRTR146*141*7*212*185*166*146*141*8*212*239*252*298*2*238*253*162*0*161 
BhT R252 * 234.«281 * 8 * 240 * 18 * 201 * 255 * 249 * 28 * 133*4* 173 * 254 * 159*9* i * 141 * 11 
DRTH212* 141 * 254 * 159 * 96*165* 2 * 9 * 2*133 * 2* 96* 0 * 8 * 165* 6* 41 * 4 * 268 * 34 * 169 * 5 
DRTR133*5*24*101*3*133*3*169*5*24*191*4*133*4*173*255*159*41*254*141 
URTR18* 212*141 * 255*159*165*6*9*4*133*6* 96*165* 6* 41 * 251 * 133*6* 239*254 
DRTR288* 2* 238*255*162* 8*161*254*234*168*185* 54*146*141 * 14*212*185*166 
BR PR146 * 141 * 15* 212* 230 * 254 * 208 * 2 *239 .»255 * 162 * 8 * 161 * 254 * 234 * 291 * 9 * 240 
BRTHi8 * 291 * 255*240*20*133*5*173*255*159* 9 * 1 * 141 * 18*212*141 * 255*159*96 
BRTR165* 2*9*4*133*2*96*162*0*168*0*200*192*16*208*251*232*224*60*208 
HATft244* 96 *8*12*28*45*62 * 31 * 182 >123 * 145 * 169 * 195 * 221 * 250 * 24* 56 * 98 * 125 
BAT ft 163 * 294 * 246* 35* 83* 134* 187*244*48*112* 180*251*71* 152*237*71* 167* 12^_ 
BfiTR119 * 233* 97* 225* 104 * 24?* 143* 48* 218* 143 * 78* 24 * 239 *218*195*195* 209 * 289 
BRTR31*96*181*30*156*49*223*165*135*134*162*223*62*193*187*60*57*93*190 
DRTR75*IS*12*69*191*125*131*214*121*115*199*124*151*38*24*139*126*259 
BATHS* 172* 243*230* 143* 248*46*8* 0*8*0*0*0* 0*0*0* 0*9*0* 0*8*8* 0^1^1 * 1^* 
BATA1 * 1 * 1 * 1 * 1 *i*1 * 1*2* 2*2*2*2*2*2*3* 3*3*3*3*4* 4*4* 4*5*5*5*6*6*7* 7*7*8 
BATHS*9,9*18* li* 11*12*13*14*14*15*16*17*18*19*21 * 22*23*25*26*28*23*81 
BRTR33* 35* 37* 39* 42* 44* 47* 50 * 53 * 56* 59* 63 * 67* ?1 * 75 * 79 * 84 * 89* 94 * 189 * 0 * 0 
BRTR0*8*0*0*8*0*8*8*8*0*8*0*0*8*8*0*0*8*8*8*8*8*0*0*169*1*162*1*168*1 
BRTR32*186*255*169*7*162*55*160*147*32*189*255*32*192*255*162*9*168*158 
BATA134 * 251 * 132 * 252 * 169* 251 * 162 * 8* 160 * 160* 76 * 216 * 255*0*78*79 * 84 * 69 * 78 
BHTA32*65*0*0*169*1*162*i*168*1*32*186*255*169*7*162*55*160*147*32*189 
DRTR255* 169* 8 * 178* 160 * 155 * 76 * 213 * 255 * 128 * 169 * 183 * 162 * 147 * 141 * 28 * 3 * 142 
BRTR21 * 3 * 88 * 96 *i73 * 141*2*41*1*208*47*165*283*201*4*208*11*173*253*159 
Bfi'f A4i* 24?*141*253*159*76*49*234*281 * 5*208*11 * 173*254*159*41*247*141 
BRIR254 * 159* 76 * 49 * 234 * 201*6*208 *8*173* 255 * 159 *41*247*141*255*159*76*49 
BATB234*165*203*201*4*288*11*173*253*159*9*8* 141*253*159*76*49*234*201 
BRTR5* 208 *11*173 * 254* 159 * 9 * 8*141*254 * 159 * 76 * 49* 234 * 281 * 6 * 288 * 8* 173 * 255 
UhlR159 * 9 * 8 * 141 * 255 * 159 * 76 * 49 * 234 * 0 
BRTR C * C#* D * B** E * F * F# * G*G#* R* R# * H *PRU* Z 


Erweiterung des Systems Commodore 64 


Peripherie 

Direkt an den Commodore 64 anzu- 
schlieBen sind: die Datassette VC 
1530, die Single-Drive-Floppy VC 
1541, die Drucker VC 1525, VC 
1526, M PS 801 und der Plotter VC 
1520. 

Ober ein IEEE-488-Interface laBt 
sich daruber hinaus die komplette 
Commodore CBM-Peripherieeinset- 


Steuergerate 

Mit Drehreglern Oder Steuerknuppei 
konnen Sie in die heiBe Action der 
Videospiele einsteigen. Der Commo¬ 
dore 64 bietet Ihnen Anschlusse fur 2 
Steuerknuppei Oder 4 Drehregler. 


Steckmodule len gespeichert. Fur Sie bedeutet das 

Viele Software-Programme fur den einfache Handhabung und leichte 
Commodore 64 sind auf Steckmodu- Anwendung. 






.■ IT 


X.. 
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hardware_ 

SEIKOSHA’s neue Standard- 
Matrixdrucker-Familie fiir Homecomputer 


Urn zwei Modelle erweitert hat SEIKOSHA (Microscan GmbH, 
Uberseering 31, 2000 Hamburg 60, Tel. 0 40 / 63 20 03-0) 
die Standard-Matrixdrucker-Serie GP-500: 


GP-500VC: 

Der preiswerte 50-Zeichen/Sek.- 
Drucker fiir Commodore-Compu¬ 
ter C-16, VC-20, C64, Cl28 und 
Pius 4, 

problemlos iiber das mitgelieferte Ka- 
bei anschlieBbar. Bei einer Matrix- 
Konfiguration von 5 x 7 Punkten wer- 
den Commodore-Blockgrafik bei bis 
zu 80 Zeichen/Zeile dargesteiit. 
Hochauflosende Grafik durch Punkt- 
adressierung mit bis zu 480 


Punkten/Zeile kann eigendefiniert 
werden. Zwei verschiedene Zeilen- 
vorschube von 6 Zeiien/Zoii und 9 
Zeifen/Zolf bei Vorschubgeschwin- 
digkeiten von 10 Zeilen/Sek. und 15 
Zeilen/Sek. sind wahibar, alphanum- 
erische Zeichen sind in NormalgroBe 
Oder in doppelter Breite ausdruckbar. 
Der Drucker druckt auf Standard- 
EDV-Papier bis zum maximalen For¬ 
mat DIN A4. Der Papiertransport 
erfolgt uber Stachelrad durch Schritt- 
motor. 


GP-500A: 

Der Universal-Drucker fur Computer, 
die uber eine Centronics-Schnittstel- 
le verfugen. 50 Zeichen/Sek. unidi- 
rektional druckend bei einer Matrix- 
Konfiguration von 5 x 7 Punkten und 
einem Zeichenvorrat von 139 GroB-/ 
Kleinbuchstaben, Zahlen und Sym- 
bolen. 

Alle anderen Daten sind identisch mit 
GP-500 CPC. 


Farbgrafik-Drucker von SEIKOSHA 
fur Commodore 

Zwei neue Modelle hat SEIKOSHA der Farb- 
Matrixdrucker-Serie GP-700 hinzugefiigt: 


GP-700VC: 

Uber ein mitgeliefertes 
Kabel direkt anschlieB¬ 
bar sind C-16, VC-20, 
C-64, C128 und Plus 4. 

Mit 38 Zeichen/Sek. Ausdruck von 
GroB- und Kleinbuchstaben, Ziffern, 
Symbolen und Commodore-Bfock- 
grafik bei bis zu 80 Zeichen/Zeile aut 
Standard-E DV-Papier Oder Einzel- 
blatt-Papier bis zum Format D! N A4. 
Matrix-Konfiguration 8x8 Punkte, 
hochauflosende Grafik durch Punkt- 
adressierung mit bis zu 640 Punkten- 


/Zeile, selbst definierbar, Zeilenvor- 
schub % Zoll fest und in Vieffachen 
von y 120 Zoll softwaremaSig wahibar 
sind nur einige Besonderheiten die¬ 
ses bewahrten und preisgunstigen 
Druckers. 


SP-1000VC 

mit serieller lEEE-Schnittstelle, uber 
mitgeliefertes Druckerkabel direkt an 
Commodore C-16, VC-20, C-64, C- 
128 und Plus 4 anschlieBbar. Druck 
von samtlichen Commodore^ichen 
einschlieBiich Blockgrafik sowte ei- 
gendefinierte Grafik durch Einzelria- 
deiansteuerung. 


Commodore 

64-Fans 

waren von „Mein erstes Commodore 
64 Programm* - ebenfalls von SY~ 
BEX-Grunder Rodnay Zaks - beget- 
stert. Mit Mein zweites Commodo¬ 
re 64 Programm von Gary Upp- 
man lernen sie, den zweiten BASIC- 
Schritt auf dem C 64 zu machen. Ziel 
des Buches 1st es, nach kurzer Zeit 
selbst nutziiche Programme schrei- 
ben zu konnen. Der unterhaltende 
Stil des Autors und viele lustige lllu- 
strationen machen das Buch fur jede 
Altersgruppe geeignet. Mein zweites 
Commodore 64 Programm (Best - 
Nr. 3086) wird ab Februar ausgelie- 
fert und kostet D M 32,“. 

Sybex Verlag, Diisseidorf 
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_programme 

„SUF0“ 

fiir 

Commodore 64 

Spielbeschreibung fiir das Spiel 

Drucken der Taste J kann man das 
Spiel nochmais beginnen, driickt 
man die Taste N, beendet man das 
Spiel! 

Bemerkungen: 

Das Spiel ist zum Teil ein Maschi- 
nenspracheprogramm. Der Basic- 
Tet! ist hauptsachiich der Basic La- 
der und die Data’s fur das Maschi- 
nenspracheprogramm. 

Das Maschinenspracheprogramm ist 
abgelegt im Speicherbereich von hex. 
8000 bis 8347. 


Naehdem das Programm gefaden 
und mit RUN gestartet wird, er- 
scheint auf dem Biidschirm eine kurze 
Erkiarung zum Spiel. AuBerdem for¬ 
ded Sie der Computer auf, etwas zu 
warten. Nach ca. 45 Sekunden er- 
scheint das Jitelbiid 11 und es ertont 
eine Meiodie. 

Eine beliebige Taste der Tastatur des 
C-64 muB nun gedruckt werden. Ist 
dieses geschehen, unterbricht die 
Meiodie for einen Moment, der Biid¬ 
schirm wird geloscht, drei Ufo’s, ein 
Lkw und ein Haus erscheinen. 


Dann ertont die Musik wieder und 
das Spiel beginnt. 

Man kann jetzt den Lkw mit dem 
Joystick, der in Port 2 eingesteckt 
sein muB, steuern. 

Sie haben die Aufgabe, die Ufo’s, die 
vom Himmel kommen, mit dem Lkw 
abzufangen. 

Die Ufo’s fallen in immer ktirzeren 
Abstanden vom Himmel. Sobaid ein 
Ufo den Boden erreicht, hat man das 
Spiel verloren! 

Daraufhin wird angezeigt, wievieie 
Ufo’s man abgefangen hat. Durch 


0 REM W- ty- # % ifc Sfc # W- % # W’-WM’#. & $ & % W. # # $ $ # & # $ if- & 

1 'REIT * SUED % 

2 rem 

3 REM * VON = ULRICH REHBERG % 

4 REM # HELLINOHRUSER MEG 28 $ 

3 REM W- 'M 

6 REM 

7 REM * FERTIGGESTElLT HM : 24.2.1985 

y REM if # if ##$### # 

9 REM BITTE NfiMEN NICHT ftENBERN I BflNKE - 

X 0 PR i NT “ IT * V=53248: AN*8$409£ : 2*0 : MU*£#4096 : 81 =54272 : POKES I9 : POKES I+1 6 
15 POKEV+28 .< 255 : PUKEV+37, 0 ; POKEV+38 > 2 ; FORI *0X03 : F0KEV+39+1 .< 7 : NEXT 


20 PUKES 1+5.. X : PUKES 1+6,1?:POKES 1+4,17:POKES 1+24,15:POKES 1+4,33 
30 POKE2040,14: PQKE2041 #13 • PQKE2Q42,13: PQKE2043,13 '* POKE2044,13 : POKE2047,194 
40 FORI*211$6410212*64-1:POKEI,0:NEXTI 
50 FOR l *@TQ14 : POKEI+13549,255 : NEXT 

60 PUKEi3548,X 27+64:POKE13546,3:POKEi3545,12?:POKE13543,1■POKE28704,0 

70 PR I NT" LIS&i SIE MUESSEN DIE UFO'S ABFflNGEN , DAM IT WIDIESE NICHT LflNDEN KOENNEN 

75 PRINT 11 ;?!® V0RS1CHT : HIE UFO-'S KOENNEN RUCH IM” 

76 PRINT">JISCHUT2 DES LINKEN BILDRBNDES LANDENM!“ 

90 PR i NT"GEBULB BITTE i 11 

95 2H*32000 ; 2E*’32019 

100 REM BASIC LRiiER 

110 REHDX : IFX=~1PHEN200 

120 P0KE2+AN,X : 2=2+1:PR=PR+X : GOT0110 

200 IFPRO-45791THENS2000 

210 PR*8:28=32019•2E=32042 

22U REHDX : IFX*-1THEN490 

230 P0RE2+RM, X : 2=2+1 : PR=F'R+X : UUTU220 

490 i FP ki.y 53?21'THEN62000 


500 PR= 8 : 2 = 0 :REM MUSIK 

505 PR 1 NT"riilMEiHEN MOMENT BITTE ! 

510 READX : IFX*- 1 THEN 600 

520 POKEMU+ 2 ,X: 2 = 2 + 1 :PR»PR+X : G 0 T 0510 
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programme 


608 i FPR083?8THEN2fi=36000: 2E=36890 : GOTQS2000 
780 REM SPRITES 
710 REM ======= 

720 PRINT":mi3LEICH GfcHT' S LOS i ! !" = PR=0 
738 FOR 1 -8T062 : REftBT = FR=PR+T: P0KE832+1, T: NEXT I 
?3ti FOR1=01065:REACT : PR=PR+T : P0KE832+S2+I,T:NEXTI 
300 I FPR03666THEN2fi=41800: 2E=41120: GOTO62000 
850 PR=8 

y00 REHCX•iFX*“1THEN1888 

920 POKEiJI+9*4896+3^256 * X : PR=PR+X : UI=UI+i:0010988 
1880 P0KE2844i 92 : POKE2045.. 193 : UI =0 
1010 REAIlX: I FX«~1 THEN 1188 

1820 POKE3&4096+UI » X : PR»PR+X : UI=UI+1:GOTO1818 

1180 1FPRO207 75THEN2H*S2000: 2E=53878: G0T062888 

1280 UI*0 : PR=0 

1218 REHDX•1FX=~1THEN1388 

1228 PGKE4*4096+UI X • PR*PR+X : UI=1JI + 1 : GOTO 1218 

1300 IJI-0 

1310 RERJJX: I FX»-1 THENi388 

1320 PuKE5*4096+U l, X:PR*PR+X : U1=01+1 : GOTO1310 
1380 IFPR04781 T'HEN2ft=53508 ; 26=54888: GOTO62800 
1480 IJi=0: PR=0 
1418 REAUX:IFX=-1THEN1580 

i 428 POKE4*4096+2*i25S+U 1.. X : PR=PR+X : 01=01+1: GOTO 1410 
1588 UT =8:28=1:20=14 
1518 REfiDX : l FX=~ i THEN 1558 

1520 PGKE5*4096+5*256+U 1 ,X:PR=PR+X : UI=UI+1 * GOTO1510 

weiter nachste Seite 


Schon aewuflt? 

Der Homecomputer des Jahres 1984 

Commodore 64 erhalt 
zum zweiten Mai die 
begehrte Auszeichnung 


Frankfurt/Main, den 14. Dezember 
1984. - Eine internationaie Faeh- 
presse-Jury wahite im November den 
„Homecomputer des Jahres 1984“. 

Unter namhaften Konkurrenten er- 
hielt der Commodore 64 zum zweiten 
Mai naeh 1983 die begehrte Aus¬ 
zeichnung. Die Jury setzte sich aus 
Redakteuren- bekannter Fachzeit- 
schriften in England, Frankreich, 

Holland, Italien, Spanien, den USA 
und der Bundesrepublik Deutschland . Alwin Stumpf, Geschaftsfuhrer Deutschland Vertrieb, erhalt aus den Handen 
zusammen. Die Ehrung wird jeweils von Richard Kerler, CHIP, die begehrte Auszeichnung .Homecomputer des 
zum Jahresende von der Zeitschrift Jahres 1984’ fur den Commodore 64. 

CHIP verliehen (siehe auch CHIP (von links: Harald Speyer/Commodore, Richard Kerler/CHIP, Alwin Stumpf/ 
12/84). Commodore, Herbert Freese/C HIP) 


mffo 
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1558 l FPRO4643THEN2fi«55000 • 2£»56000 * GQT062888 
16S0 PR~0 • FOR I «0T062 : REfiBX : PR—PR+X : POKE i 34*64+1 , K • NEXT : PR I NT 11 72" 

1709 1FPROS180THENZfl*S7000 : 2E-57038: GOTO62086 

13408 FGKEV+8 , i88 • POKEV+9, 77 ■ POKEV+18, 154 • P0KEV+11.78 : POKEV+21 .• 51 

13448 FOR1-8T03:POKEV+1,0 : NEXT 

13380 POKEV+23,51 : POKEV+29 .-Si: PCKE53281,18 

13918 F0R1-8T02S:POKEV+37,1:PGKEV+33,0:FQRT-8T093*'NEXTT : POKEV+37,0:POKEV+38,7 

13928 FORT-0TG99:NEXTT,1=FORT=0TQ2Q = NEXTT:POKEV+37,8 = POKEV+3872 : P0KE53281,6 

14000 SVS5#4096 : SVS5*256+5*4896 : SVS9#4096+5*256 

14050 POKES 1,8 : POKES1+1,0:20-118 

14108 FORI=?7TO0STEP-i: POKEV+9,1: POKEV+i1,1: NEXTI 

14908 POKEV+23,8: POKEV+29,128 = PR I NT " 

14910 FORI=0TO3: PR INI“ Si *"; : NEXT 

14920 PRINT"a W- : 

14930 P0KE56295, 4 • P0KE2823,168 : PQKEV+16. 128 ; POKEV+14.. 29 • PQKEV+15,196 : ZS«1 
i5800 POKEV+21,143:SVSfiH■POKES1,0:POKES1+1,0 
15908 PU=PE£K<7*4836+8)+PEEK<7*4096+2*169 
16800 PRINT 11 SHIMS IE F INGEN ".iPU," UFO'S FiE ! " 

16500 P 0RT“8T09 T3 : NEXT 

17008 PRINT^SsMfeWW NOCH MfiL U/N) ? " 

17018 GETFf: l FF$= " J “ THENPRI NT 11 SEP ■ POKEV+21,0: GOTO 13408 
17828 .1 FF$.=" N " THEN 19088 
17838 GOTO17800 

19088 POKEV+21,0: PR 1 NT !l rM3" : END 

31999 REM MftSCNINEN-DfiTfi'S . 

32888 BATR162.135,142,0,112,1‘42,1,112,160,48,148,2,112,162,119,142,4,112,163 

32801 BRTR212,141,6,112,162,1,142,3,112,148,5,112,141,7,112,7,112,234,142,14 

32802 BRTfi112,234,162,0,142,9,112,234,234,234,162,48,142,16,112,142,17,112,234 
32883 DAT8234,162,8,142,8,112,142,9,112,142,18,112,142,11,112,142,12,112,76,80 
32084 BRTR130,234,174,8,220,224,119,248,7,224,123,240,17,76,119,128,174,0,112 

32885 BRTR224,255,248,18,232,142,0,112,76,119,128,174,0,112,224,0,240,4,202,142 

32886 BRTfi&» 112,174,30,288,224,8,248,72,224,3,248,11,224,5,248,27 , 224 ,3 .< 248,43 
32087 BRTR7S, 198, 128,172,8, 112, 208 .* 148,8,112, 165,162,141,2,112,169, 1,141,8, 112 
32888 BATR76,198,128,i72,8,112,288,140,8,112,165,162,141,4,112,169,11,141,5,112 
32009 BRTfi 76,198, 128,172.«8, 112,288,140,8,112,165,162,141,6,112,169,19,141,7,112 
32818 BRTfi162,8,174,9,112,224,255,248,4,232,76,10,129,172,3,112,208,148,3,112 

32011 BRTR172,5,112,288,148,5,112,172,7,112,200,140,7,112,174,IS,112,188,0,96 

32012 BRYR232,142,10,112,162,15,142,24,212,lb2,1,142,5,212,162,17,142,6,212,142 
32813 BfiTR4,212,140,1,212,76,255,130,142,9,112,162,8,174,8,112,142,0,288,174 
32014 BRTfi1,112,142,1,288,174,2,112,142, 2,208,174,3,112,1’42,3,208,174,4,112,142 

32815 BRTR4,288,174,5,112,142,5,288,174,6,112,142,6,208,174,7,112,142,7,208,162 

32816 BHTfi'7,142,39,268,162,7,i42,48,288,142,41,208,142,42,208,162,0,160,6,174 

32817 BRTfi 11,112,172,12,112,232,224,10,288,251,174,11,112,268,192,10,208,243_ 

32018 BRTfi162,7,142,39,208,162,7,142,48,288,142,41,208,142,42,208,174,3,112,224 

32019 BRTR208,240,17,174,5,112,224,208,240,18,174,7,112,224,289,248,3,76,143,-1 

32028 BRTfi129,96,i74,9,112,224,16,240,i1,224,144,248,7,224,209,248,3,76,164,129 

32021 BRTR76,211,128,162,33,142,4,212,174,8,112,224,255,240,3,76,76,128,162,0 

32022 BRTfi142,8,112,174,32,112,232,142,32,112,76,76,128,76,177,128,76,213,128 

32023 BfiTfi0,159, i 17,255,21,159,11? ,.234,21,159,117,255,21,159,117,255,5,159,117 

32824 BRTfl255,21,159,1-17,98,21,138,117,234,21,159,117,255,0,159,117,255,8,159 

32825 BRTfi117,234,1,159,117,245,18,159,96,255,21,159,117,255,21,159,96,117,184 

32026 BATR234.< 24, 159,234,234,0,154, 96 ,234,0,138,96,234,0,138,96,232,8,138,96 __ 

32027 BRTB234,21,154,96,234,8,138,117,234,0,0,226,117,0,0,96,234,0,138.< 112,234 
32828 BRTH0,138,96,234,8,138,96,234,0,0, 96,9b, 29,8,96,96,8,138,234,234,0,8234 

32029 BRTR234,8,138,96,234,138,138,96,234,8,i38,96,234,0,138,174,30,208,224,9 

32030 HRTR240,11,224,5,248,7,224,3,240,3,76,128,138,I68,0,288,192,247,240,6,140 
32831 BRTR33,288,76,108,138,76,128,130,8,138,117,234,21,138,96,234,0,138,117 
32032 BRTR234,0,159,1 ‘74,8,112,224,255,248,3,76,80,128,162,0,142,8,112,174,32 

32833 BRTfi112,232,142,32,112,76,80,128,255,21,159,247,255,©,159,117,234,159,155 

32834 BRTfi11?,255,21,159,11?,255,21,159,117,255.16,159,117,255,21,159,117,255 

32835 BRTB21,159,117,255,21,159,117,255,21,159,117,255,21,159,117,255,138,138 
32036 BfiTfiSS,255,21,159,117,255,21,138,117,255,21,159,117,255,21,159,117,255 
3283 7 Bfi rfl2 i , 1S9,117,255,21,130,117,234,21,154,117,255,21,159,96,255,21‘, 159,112 
32038 DRTR255,21,138,117.255,21,149,234,255,16,159,117,255,21,162,0,142,9,174 
32839 BfiTfil?,112,142,9,112,174,16,112,224,2,248,7,232,142,16,112,76,13,129,166_ 
32040 BRTR0,148,16,112,174,17,112,232,142,17,112,142,9,112,76,13,129,192,68,249 

32841 BRTfi12,280,140,14,112,168,8,148,15,112,76,13,129,162,0,172,13,112,142,14 

32842 BRTfi112,200,140,9,112.140,13.112,76,13.129,234 
35088 BATfl-1 
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6502-Assembler-Kurs 

Teil 1 


Die Hardware des Commodore 64 ist 
in dieser Preisklasse wohl kaum 
Gbertroffen. Leider ist das Basic die¬ 
ses Rechners kaum geeignet diese 
Vorziige auszuspielen. Es wurde wohl 
mehr Wert auf die Kompatibiitat zu 
den alien Rechnern CBM und PET 
gelegt. Da der PET einer der ersten 
Microcomputer war, ist das Basic 
aueh entsprechend veraltet. 

Urn nun diesen Mangel auszuglei- 
chen gibt es zwei Moglichkeiten: 

1. eine Basic-Erweiterung zuzulegen 
Vorteil: leistungsfahige Befehle 
einfach programmierbar 
Nachteil: nicht mehr kompatibel 

2. in Assembler zu programmieren 
Vorteil; sehneile Verarbeitungsge- 
schwindigkeit, geringer Speicher- 
platzbedarf 

Nachteil: schwierig zu program¬ 
mieren 

Dieser Kurs ist fur diejenigen ge- 
dacht, die an die Grenzen des Com¬ 
modore-Basic gestoBen sind und 
sich fur die Assemblerprogrammie- 
rung entschlossen haben. 

Ziel dieses Kurses ist es, dem Anfan- 
ger die Grundkenntnisse des 6502- 
Assemblers nahezubringen. Unter- 


stutzt wird dieser Kurs von kteinen 
Beispielprogrammen, welche auf dem 
Commodore 64 lauffahig sind. 

GRUNDLAGEN 

Assembler ?????? 

Assembler ist im Gegensatz zu Basic 
eine Programmiersprache, die direkt 
auf den jeweiligen Microprozessor 
zugeschnitten ist. Die eigentiichen 
Befehle bestehen nur aus Zahienfol- 
gen (Objektcode), die vom Micropro¬ 
zessor interpretiert und ausgefGhrt 
werden. Da der Objektcode direkt auf 
den Microprozessor zugeschnitten 
ist, spricht man auch von dem Ma- 
schinencode. Da das Auswendigler- 
nen von langen Zahienfoigen wohl 
nicht sehr attraktiv ist, wurde vom 
Hersieller jedem Befehl eine kurze 
Bezeichnung zugeordnet, dem soge- 
nannten Mnemonik. Um ein mit 
Mnemoniks geschriebenes Pro- 
gramm (Assemblerprogramm) in den 
Maschinencode umzusetzen, benoti- 
gen wir den Assembler. Bevor wir 
jedoch zur eigentiichen Assembier- 
Programmierung ubergehen, wollen 
wir uns einige Grundkenntnisse ver- 
schaffen. 


Verschiedene 

Zahlensysteme: 

In der Digital-Elektronik sowie in 
Computern werden fnformationen in 
Form von Bitfolgen verarbeitet. Ein 
Bit kann zwei Zustande annehmen: 
logisch 0 

(keine Spannung;iow Pegel) 
logisch 1 

(5 Volt $pannung;high Pegel) 

Die meisten Microcomputer, auch 
der C 64, arbeiten mit einem soge- 
nannten 8 Bit Prozessor. Dies be- 
deutet, daft 8 Bit gleichzeitig bearbei- 
tet werden konnen. Der Speicher ei- 
nes solchen Rechners ist so kompli- 
ziert, daB 8 Bit zu einem BYTE zu- 
sammengefaBt werden und nur eine 
Speicherstelie belegen. Der Commo¬ 
dore 64 kann etwa 60 kiio Byte verar- 
beiten, das bedeutet, 60 000 Bytes 
mal 8 Bit, also 480 000 Bits (Span- 
nungszustande). 

Um das Binarsystem (Duaisystem) 
richtig zu verstehen, mussen wir uns 
noch einmal mit dem Dezimalsystem 
beschaftigen. Jedem Leser durfte 
dieses bekannt sein, da er wohl tag- 
taglich damit konfrontiert wird. 

Das Dezimalsystem besitzt die Basis 
10. Dies bedeutet, daB 10 verschie¬ 
dene Ziffern zur VerfOgung stehen 
(0,1, 2, 3, 4, 5, 6, 7 , 8, 9). 

Nehmen wir einmal die Zahl 234 
Diese Zahl besteht aus 3 Ziffern. Die 
Zahl besitzt 2 Hunderter, 3 Zehner 
und 4 Einer. 

234 = 2*100 + 3*10 + 4*1 
Das Binarsystem: 

Wie schon erwahnt, kennt man im 
Binar-System nur zwei Zustande 
(Eins/Null), also besitzt dieses die 
Basis 2. 

Nehmen wir einmal die Zahl 
10110111 

10110111 = 1*128 + 0*64 + 
1*32 + 1*16 + 0*8 + 1*4 + 1*2 
+ 1*1 
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kurs 


Das Dualsystem ist sehr einfach auf- 
gebaut. GroBe Zahlen besitzen aller- 
dings sehr viele Steilen, was die Les- 
barkeit dieser Zahlen nicht gerade 
fordert. 

Folgende Tabeiie erleichtert das Um- 
rechnen von Binarzahlen in das dezi- 
male Zahlensystem: 

Bit 

7 6 5 4 3 2 1 0 

Muitiplikator 

128 064 032 016 008 004 002 001 
Beispieizahl 

1110 1111 

Um zu errechnen, welchen Wert die 
Binarzahl besitzt, tragt man diese Bit- 
weise in die Tabeiie ein und multipli- 
ziert Bit fur Bit mit dem entsprechen- 
den Muitiplikator. 

Unser Beispiei erreehnet sich wie 
folgt: 

Bit 7 128 

6 64 

5 32 

4 0 

3 8 

2 x 4 
1 2 

0 1 

Summe 

239 entspricht 11101111 

Wir wollen nun einmaf versuchen, 
eine dezimaie Zahf in eine Binarzahl 
umzuwandeln. Als Beispiei nshmen 
wir die Zahl 123. Um nun festzustel- 
len, welchen Binarwert diese Zahl 
besitzt, mussen wir diese durch die 
bekannten Muitiplikatoren dividieren. 

Fangen wir an: 

123 / 128 (bit 7) = 0 Rest 123 


123/ 

64 (bit 6) = 1 Rest 

59 

59 / 

32 (bit 5) = 1 Rest 

27 

27 / 

16 (bit 4) = 1 Rest 

11 

11 / 

8 (bit 3) = 1 Rest 

3 

3/ 

4 (bit 2) = 0 Rest 

3 

3/ 

2 (bit 1) = 1 Rest 

1 

1 / 

1 (bit 0) = 1 Rest 

0 

Die entsprechende Binarzahl 

1 iautet 

01111011 



Der 6502 Prozessor besitzt einen Da- 
tenbus von 8 Bit und einen AdreBbus 
von 16 Bit. Versuchen Sie einmal zu 
errechnen, welchen Dezimalwert der 
Daten- und der AdreBbus annehmen 
kann. 


Das Sedezimafe Zahlensystem 
(Hexadezimalsystem): 

Neben dem Binarsystem ist auch 
dieses sehr wichtig fur den Program- 
mierer. Der Vorteil der „Hex-Zah!en“ 
ist, daB diese nur zwei Ziffern beno- 
tigt um eine 8 Bit Zahl darzustellen. 
Das Hexadezimalsystem besitzt als 
Basis die Zahl 16. Daher benotigt 
man zur Darstellung einer Zahl, 16 
verschiedene Ziffern. Da die 10 Zif¬ 
fern des Dezimalsystems nicht aus- 


reichen, wurde das Alphabet heran- 
gezogen. 

Dezimal Binar Hexadezimal 

0 

00000000 

00 

1 

00000001 

01 

2 

00000010 

02 

3 

00000011 

03 

4 

00000100 

04 

5 

00000101 

05 

6 

00000110 

06 

7 

00000111 

07 

8 

00001000 

08 

9 

00001001 

09 

10 

00001010 

0A 

11 

00001011 

0B 

12 

00001100 

oc 

13 

00001101 

0D 

14 

00001110 

0E 

15 

00001111 

OF 

16 

00010000 

10 

Eine vierstellige Hexzahl wird wie 


foigt berechnet: 

4DB6 = 4*4096 + 13*256 + 
11*16 + 6*1 
= 19894 

Mit dieser Tabeiie lassen sich Hex- 
Zahien sehr leicht in Dezimalzahlen 
umwandeln: 

S telle 4 3 2 1 

Muitiplikator 4096 0256 0016 0001 

Beispieizahl A B 1 2 



Unser Beispiei erreehnet sich wie 
folgt: 

Stefle 4 A*4096 = 10*4096 
Stelle 3 B*256 = 11*256 
Steile 2 1*16 =1*16 

Stelle 1 2*1 = 2*1 

Summe = 43794 

1010101100010010 
Etwas schwieriger ist die Umwand- 
iung einer Dezimalzahl in eine Hexa- 
dezimalzahl. Wir wollen dies einmal 
mit der Zahf 1000 probieren: 
1000/4096 (Stelle 4) = 0 Rest 1000 
1000/ 256 (Stelle 3) = 3 Rest 232 
232/ 16 (Stelle 2) = 14 Rest 8 
8/ 1 (Stelle 1) = 8 Rest 0 

Das Ergebnis ware: 
0*4096+3*258+14*16+8*1 = 

03E8 Hex 

Hexadezimalzahlen lassen sich we- 
sentlich besser eingeben als Binar- 
oder Dezimalzahlen, da sie kurzer in 
der Schreibweise sind und lange 
nicht so ermudend bet der Uberpru- 
fung. Fehler sind wesentlich leichter 
in einer Folge von Hexadezimalziffern 
zu finden als in einer dezimal ausge- 
druckten Zahlenfolge. 

Da beim Programmieren oft mehrere 
Zahiensysteme benutzt werden, ist es 
erforderiich, diese durch ein vorange- 
steiltes Zeichen zu kennzeichnen. Wir 
benutzen hierfur die folgenden Sym- 
bole: 

7. Binarzahl z. B. 7.110011111 Oder 
7.110 

$ Hexzahl z. B. $03EA Oder $AF 
Wird der Zahl kein Zeichen vorange- 
stellt, so handelt es sich um eine 
Dezimalzahl. 

Liferaiur 

6502 Microcomputer Programmie- 
rung, Peter Heuer, Hofacker Verlag 
6502 Programmieren in Assembler, 
Lance A. Leventhal, Te-Wi Verlag 
64 Intern, Angershausen, Becker, 
Englisch, Gerits, Data Becker Buch 

Frank Brail 

Fortsetzung im 
nachsten Heft 
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fur 


VC-20 Grundversion 


Listing nachste Seite: 


Die Weitsprung-0 iympiade 1985 fin- 
del mit Ihrer Beteiligung statt. Tau- 
sende von Zusehauern haben sich 
eingefunden, um zu sehen, wie Sie 
evtl. einen neuen Weitsprung-Weftre- 
kord aufstellen. Die Steuerung des 
Weitsprung-Sportiers geschieht Ober 
die Tastatur. Mit der RETURN-Ta- 
ste konnen Sie auf einer langen Ge- 
raden Anlauf nehmen und in Hohe 
des Absprungbalkens mussen Sie 
mit Hilfe der SPAC E-Taste absprin- 
gen. Wichtig ist dabei, daB Sie ein 
Ubertreten und ein zu fruhes Ab- 
springen vermeiden. 

Je schneifer Sie vor dem Sprung 


anlaufen, um so weiter springen Sie. 
Soflte ihnen ein neuer Rekord gelun- 
gen sein, erfolgt nach dem Sprung 
eine Siegerehrung. Also bereiten Sie 
sich grundlich auf Ihren Rekordver- 
such vor und beachten Sie olympi- 
sche Sportregeln. 












programme 


5 REM OLYMPIA 

iU P0KE56, 28 '• PUKE52,28 : PGKE3687S, 15 : HS$~" NIEMflNB" : HS-7 : P0KE658, 64 : COT0340 

12 UGSUB2008:PJJKE36S79,8:P0KE3S864,10:P0KE36867,160*PGKE36866,153* P0KE36865,59 

13 PUKE36869,255:P«7980:F*33?00 ; B«8024:P0KE36878,15 

20 PRINT "3" : FORE-l 10100:PGKE7679+E,4 :PGKE33393+E,RND< 1 >*?+l:NEXTE 
22 F0RE*?78BT07804•POKEE,b :pGKEE+30726,7:NEXTE 

24 FGR£»8005TGB = PGK£E+38?28,4:POKEE,6:NEXTE:FORE»8025TO8029 : PQKEE+30720,7 :POKEE, 
5 : NEXT 

25 POKEP,2:POKEE,7:POKEP-25,0:POKEB+30720,3 
2b WR1T203,15 

27 Tl$= , ‘ 000000“ 

28 POKE 198,0: mh IT198,1 *■ VW*PEEK < 203 > 

38 IFVW“ 15THENP0KEP,32 • PGKEP-25, 32 : F-P+l : F S F+1 : POKEP, 2 : POKEF.* 7 • POKEP-25, 8 : 

31 IF YU*15THENP0KE36876,200:PGKE36876,8:POKEP,3•POKEP-25,1 

32 IFYWa32THENR»TIiGQTO50 
34 POKE203,84:G0TG28 

58 P*P+25:IFP>BTHEN100 

52 8W=<250-R> 715+ftNB CD ’0010288 

100 POKE36869,248:PRINT"SCFOUL! ";:GOTO308 

280 IFP-BTHENGOTO3U0 

282 IFP+1®BTHENSU»SU-1:UOTO300 

203 IFP+2*BTHENSU*SU-2 : GOTO300 

204 G0TD488 

388 GOSUBS00:IFSU<*0THENSH»RND<I>+2 

2*01 POKE36879,8 * PUKE36S69,248 ; PQKE36S64,12* P0KE36365,38 : PQKE36866,150 * P0KE3b8S (, 
46 

382 PRINT" ZlaiSPRUNGUE IT E “ LEFT % < STR$ < SW),5)" M" 

385 IFSW>HSTHENHS*VrtL(LEFTSCSIRSC8U),5 >):PRINT“3" i ■ GOTO2400 

386 IFHS* 7THENPRI NT *' IlQ URL IF1KRTI ON NICHT GESCHRFFT! " 

387 IFMS>7THENPRINT"MUEITESTER SPRUNG WAR : *‘H3 " METER, GESPRUNGEN VQN^’HS* 

308 PRINT"PRESS SPHCE":WRIT203,32:G0T012 

340 P0KE36879,27 : P0KE646,18 : P0KE3S863,242 

342 PR I N T '* LXL'tTIP ISCHE - #PIELE / S4W LONG - HJMP” 

346 PRlNT“«ffl»WRITTEN BY:" 

348 PRINT "Hill HORSTEN #CHLREGER'J»mfSi*aC*. I RIOfiSOFT 1984B**" 

352 PRINT"{^SU* TURNS -LRUFEN" : PRINT" SKUfPRCEB *SPRINGEM" 

355 PRINT"SGMUFILIFV : iTtW 

356 PRINT"IflSPRESS ft ■'EYW" 

360 POKE198,0:WflIT198,1:PRINT"MHEINEN MOMENT":GOTO12 

408 P0KE36869,240:PRINT":M)U BIST ZU FRUEH BBGE - SPRUNGEN*",* ; GOTO308 

500 pap-25:POKEP,8:POKEF,7:POKEP-25,7 

502 FORE*138 TO150STEP.4:PGKE36876,E : NEXTE 

564 POKEP,32:POKEP-25,32 = P=P-£4tF*F~24:POKEP,8 = POKEF, 7■ POKEP-25,7 
586 F0RE-158T0170STEP.4:PGKE3687S,E:NEXTE 

588 POKEP,32:POKEP-25,32:P-P-24:F*F~24 = POKEP,8 = POKEF,7:POKEP-25,7 
510 FORE* 170T 01903*1 EP. 4: P0KE36876, E = NEXTE 

512 POKEP,32:POKEP-25,32:P*P+i : F«F+1 : POKEP,8 : POKEP-25,7 : POKEF,7 
514 FORE*i90TO2l0STEP.4 = P0KE36876,E:NEXTE 

516 POKEP,32:POKEP-25,32:P-P+26:F=F+26:POKEP,8:POKEF,7:POKEP-25,7 
518 FORE-210TU230STEP.4 ; P0KE36876,E : NEXTE 
520 POKEP-25,32:POKEP,32:P=P+26 : POKEP,7 

522 PUKE36876,8:P0KS36876,150 = P0KE3S876,0:FGRE*1TO1080:NEXT : RETURN 
2008 RESTORE:FORE-7168107295:KERBS:POKEE,S = NEXT 

2002 BhTRO,28,28,25,63,88,88,28,9,56,58,50,252,184,56,56,24,40,36,68,139,131,192 

,0,48,48 

2804 BRTR72,68,130,1’34,3,0,24,102,129,165,129,90,36,24,8,170,255,255,255,255,255 
,255,255 

2006 BRTR255,255,255,255,255,255,255,8,0,8,56,120,112,254,224,224,249,15,0,0,9,8 
,8 ‘ 

2008 BHTR0,8,8,24,126,189,126,24,36, 90,90,126,60,68,60.«60,60,60, 36,36,36,36,3b, i 
02,60,60 

2010 BRTR24,255,189,189,183,60,255,231,247,247,247,247,247,255 .• 255,139,247,193,2 

20i2 DRTft199,255,255,199,247,193,24?,247,139,255 
201 7 FORE-7424107431 ; POKEE,0:NEXTE=RETURN 
24G0 GOSUB2000 
2482 P0KE36869,255 • PR I NT 11 3 
ffl 
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—_programme. 

2406 ui 11 " = g2$« ,, miskm um» 

2410 G3*=RIGHT$<G1*,32> 

2412 G^~ ; G5$- " WISWliSlCGNGRRTULflT 10NI75* M 

2416 06*-R X GH"i $ >.. 04$.. 32 > 

2420 FORE-1TO50:PRINT01$:PRINTG2$:PRINTG3$ 

2422 F0RE2-1TO50:NEKTE2:PRINTG4* : PRINTG5* : PRINTG6* : FQRE2=1TO50 : NEXTE2,E 
2430 P0KE36869,240 • PR 1 NT f! IME X HE SPRUNGWEITE : 11“ HS 

2432 PR I NT “ BfiM X T HftST DU BEN RE- KORDSPRUNG VON : " : PRINTHS* : PRINT ,, UEBERBOTEN! ** 

2434 1NPUT"BEXN NHME”JHS* : 0010308 


tar VC-20 Grundversion 



Ziel des Spieles ist es, moglichst viele Blumen zu pflucken, 
ohne von einer Biene gestochen zu werden. Am Anfang 
erscheinen Bienen liber verschiedenen Blumen. Diese Blu¬ 
men diirfen anschlieBend nicht gepfliickt werden. 


Das Spielfefd ist in zwei Teiie aufge- 
teilt. Daber muB man fiinf Blumen je 
Reihe einsammein, um in die naohste 
Reihe zu geiangen. Nach fiinf ge- 
sammelten Blumen ist ein Brummton 
zu hdren. Hat man die zweite Reihe 
geschafft, kommt man In eine neue 
Phase, bei der die Bienen am Anfang 


immer kurzer auf dem Bildschirm er¬ 
scheinen. 

Um jetzt in eine neue Reihe zu kom- 
men muB man ganz nach rechts ge- 
hen. Aber achten Sie darauf, daB Sie 
danach nicht mehr zuruckgehen kon- 
nen. 


Das Spiel sefbst wfrd mit einem Joy¬ 
stick gesteuert (Feuertaste = Blu¬ 
men, die direkt fiber Ihnen sind, kon- 
nen gepfliickt werden). Man hat aber 
auch die Mogiichkeit, mit der Tasta- 
tur (Z = links/rechts, SPACE = 
Blume pflucken) die Steuerung vor- 
zunehmen. 


Das Programm besteht aus drei Teilen: 

1. Teil: Sonderzeichen 

11 FGRE*?424T07431?PQKEE,0 : NEXTE■PGKE56,28:PGKE36S73,25 

12 F0RH=*7168T07407:REflBR:POKEH, ft: NEXTH•FGRG=7448TQ7503 • REfiBfi:POKEG.fi:NEXTG 

13 PRINT"l.’a<LfiBE NUN TEIL 2'!?NEW 

14 BfiTfiS,8.23.60.60,126, 254.254.0.8.0.0.0.8.24.60 

16 BfiTfll.1.7, 15.31.31.127.255.128.193.195.198.239.239.255.255 

15 m T Bi 31.133,143.159.255.255.255.255.135.231.255.255.255.255.255.255 

t2Bi132 i 2404 248.248.254.255.255.255.255.255.255.255.255.255.1.3.7.135 

.143.223 

22 BRTfi 255.255.254.254.255.255.255.255.255.255.128.192.192.224.252.254.254.255 
24 BfiTfiB, 0,0.8.0.0.0.255.24.68.126.126.60.24.68.255.28 
26 BftTft£2,127.65.85.65.77.255.0.0.214.84.124.124.124.56 
28 DRTR16.16.20.32.124.112,16.16.148.249.255.255.255,255.255.255 

38 jHTfi30._159.255.255.255.255.255.255.28,20.62.245.245.62.20.28 

32 liftTfi0.60.60,235.94.126.62.28,24,30.30,90.90.90.66.60.54,54,54.54.54.38,238.23 

8 

34 BRTfl'0,60,60.255.122.126,124.56.108.108.108,108,108,100,113,113 

36 DfiTftQ,3,3,15,5,7,3,1,1,5,5,5,5,5,4.3,3,7.143,254,252,248,112,32,0,192,192,240 

,224,224 

38 BfiTfi224,132.128,160,160,160,160,160,32,192,132,132,224,36,68,60,12,12 
40 DflTfi0,3,3,15.7,7,7,3.3,3,7,6,62,60,48,48,0,192,192,240,160,224,192,128 
42 BflTfil92,224,241,127,63.31,14,4 

44 BfiTfi0.6,31,63,31,11,1,0,0,138,255,255,255,255,157,0,0,64,224,248,232,248,32,0 
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programme___ 

2. Teil: Anleitung 

93 PGKE36873,25:PQKE36878>15 

100 DU WILLST BLUflEN VON ElNEW RCKER KLRUEN.RBER PfiSS ftUF/BBSS DU KEINE BLU 
ME MIT " 

102 R#aH*+"BIENE NIMMST.SONST UIRST DU 0E8TQCHEN.BU MU88T MINDESTENS 5 BLUMEN JE 
RE1HE " 

104 NEHMEN > UM IN DIE NRECHSTE REIHE<BILD>ZU KOMMEN. VIEL SPRSS MIT FLOWERS 

I" 

108 PR I NT " » " j : D*« « *' 

110 PR I NT f 33!! LEFT# i fit j22) h ♦' 

112 FDRW«lTa50iNEXTW:Rsl:aRieHT*Cfl*^ <LEN<fl*)-l>) : IFLEN<ft#>*0THENft#**D# 

113 OETE#aF-<.<PEEK<37151)RND325*0)«lOREiw H "THEN 120 

114 OOTOliO 

128 PRINT"3"; ; PGKE36669 1 255 : CLR 

122 F*» M »> FLOWERS «< » : L$s» XII XII 

H 

124 J$m" nil XIII »;FORW«1TO20 

i 26 PRINT"fflfiiaS"LEFT!C.F *j W >"STM*: FQRG« 1T075:NEXT -PRINT"mtlSI"LEFT#<F*, W)"STL$ 

12? PR I NT " ftflflg** LEFT# (FB/UV MY H#: FQRQ* 1T075 i NEXT * PR I NT " 'OMT LEFT# < F$, W ) " MY J % 

126 P0KE3687? 1 280 = P0KE368770 = NEXT 

130 F*«» WRITTEN B¥: “ : R$«"T.SCHLREGERiM.RITTER" 

132 FORW*1TO20 

434 PR I NT " SMBSISilS" LEFT# (. F# > W) "STM# • F0RQ*1T075: NEXT: PRINT"iia«XKl«a' , LEFT$<F#^ M) ”KTL< 
$ 

136 PRINT" 33X9g&££2l l( LEF T# t F# j W ) “ ST H$ : F ORQ® 1T075 : NEXT s PR I NT " iSSiQXISKIS” LEFT# < F$ > W ) " ST J 
$ 


bucher 


VC 20 


uirich strobe! Grundkurs in BASIC 




lernanoDuci 


John Heilborn & Ran Talbott 


Das Anwenderhandbuch vermittelt 
alles notige Wissen fOr den Umgang 
mit dem VC 20 und seinen Zusatzge- 
raten. Die VC 20-BAStC-Program- 
miertechnik, der ganze Bereich der 
Colorgrafik und der Tonerzeugung 
und sogar Technik und Design eige- 
-ner elektronischer Unterhaltungs- 
spiele werden genau besehrieben. 
Das Buch eignet sich sowohi fOr den 
Anfanger zur schnellen EinfOhrung, 
ais auch fur den erfahrenen Anwender 
als Nachschlagewerk. Computer 
Praxis (5/84) schreibt daruber: 

Uns hat dieses Bueh ... durch 
sein immenses Informationsangebot 
und die erstklassige Aufmachung 
uberzeugt." 

ISBN 3-89028-004-8.1983 
388 Seiten, DM 32,- 


ca. 260 Seiten \ m. Abb. I 
Best.-Nr. 3058 
ISBN 3-88745-058-2 (1985) 
ca. DM 27,50 / sFr 25,70 / 

S 217,- 

Diese Einfuhrung in die meistgenutz- 
te Programmiersprache BASIC rich- 
tet sich an Lehrer und Schuler in 
informatik-AGs alter Schulformen; 
aber auch Hobby-Programmierer 
werden es mit Gewinn iesen. In kiet- 
nen Schritten werden die wichligsten 
Fachbegriffe und Programmierbefeh- 
le dargesteilt. Detailliert und umfas- 
send lernt der Anfanger, schon mit 
wenigen Begriffen recht eindrucksvol- 
le Programme in BASIC zu erstellen. 
Eine Fuile praktischer Beispiele und 
Ubungsaufgaben begleitet den Leser 
auf seinem Weg zum fortgeschritte- 
nen BASIC-Programmierer. 

Sybex Verlag, Diisseldorf 


********* 
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programme 


138 PQKE36877,200:POKE3607?,8:NEXT 
140 FORH-1TO20 

142 PR I NT " SS«BaalMaa ,, LEFT|: < RS.W >" KT MS ■ FORQw 1T075: NEXT: PR I NT "mmxmW LEFTS < RS , U > ” 
sjLI 

H 4 PR I NT “ LEF T$ ( RS, 14 ) 1!1 KT HS: FGRQw 1T075: NEXT: PR I NT “ mMJ&m" LEFTS < RS, U > » 

K j J# 

145 PQKE3687.7,280: PUKE3687? , 0; NEXT 
150 PRINT”SLADE NUN TEIL III":NEW 


3. Teil: Hauptprogramm 


8 u2A5f, <34> ' H(34> : F0RW®7815TO7830 J G«G+1: F<G>-W:NEXTW ■ F0RW-7969TQ7934:G*G+l: F<G>=W 
: NEXTw 

?q P 2£m?S ?5 : £?,£!'. 255: p DKE36378, 15: POKE650,222: VU-1500 

13 P0KE657^ 1 k:S*PRINTCHRS<8)‘TISPRESS FIRES*’; 

14 GETfiS:IF-<CPEEKC37151)flND32)s0)OlfiNBfiSO” “THEN 14 

20 JK-8C+5•V*V+l:0=0 JFG=0 

21 PRINT **38 ‘ O *'') '<> O klfeijj SR R § BGCGBEGF EIHGF 

22 PRINT. ,l BGGGGGGfiGJIKLIt1fiLk£GG6GGFBL. a-—-==*?; F 

iir!c3n-l" ^ Wiif ^ N ^ aN ^ ilNNSWN}aNaw »' i fflNNSSNfii7l( i *li*S«3000000000Q00000l»»i»iliBPQQPQPPQP' 
rPldPQQNF 

26 i 

^|p p ||^ ,l ^ w ®™^^ ra W^* , ™' ! *^ni'iahll?l*^«i**ii*iOOOOOOOOOOOOOOOOI | »ii»l | BQPPQPQQPQ 
32 FDRE*ilT032 

34 IFRNIi<1)C,4THENPGKEF i E > -22,i8 = POKEF<E)+3069S>7•H<E)«V 
36 HEXTE J FORTbITDVU : NEXTT 

IL^I* 11032: P0KEP < E >~22,32 • FORT«1TO10: NEXTT * E = F0RE-7945T07964: PQKEE, 227: POKEE-f 
30 1 20 > 0 

39 NEXT:FORE®8093TOSli8:PDKEE,227sPGKEE+30720,0:NEXTE 
4.0 rtsa>» ,, fcwiiBriaBi4irrn" :ls(d« m m m imr 
42 ms * 2 > * *■ rraaiisr jaiijimr 

44 Ms<3>«^mxM«lsv£3aI*it&l■^m ,, ;ls< 3>*“ jail jam nmr 
46 f1SC4>= M IIIIXCI■IISy£'lllB231«rTTl‘ ,: LS<4> ss "ll >111 *111 lirm**: 

48 RS» ” : S$*RS: B=2: PR INTS* ” k»|" MS <i > 

52 IF-i(PEEKv,37151>fiNJjl6>ss0)«lORU$si ,l 2'‘THENl 10 
| 4 “THEN 120 

»jo rUKt Jr IS4-i ^55 

57 PRINT"MBIKIfiZiUSiIiiilll£D£Q^^ LOFIERS • “SC 

5? J p ?<f 1THENPRINTSSTAB(D)L$( 1 > : D«2 • PR INTSSTAB ( B)MS<1 > 

JK C ir^f C i??F?*-- 1 JS^ NFOR!aW!?1TD20:P0 *<E3S8?4,158:NEXTQW = P0KE3S874,0;FG*l 
60 IFBs!fiL0RNBSS~ rSHN£l8L‘>=.JKTHEHV!J=VU-250: G0T02R 

f 2 !E^?5S®S7 JKTKE NPRINTSfTnB<D>L«<l> :8*»T*:D-1 *0-16: JK-SC+3:FG-0 
f 3 ^5*^ THE NPRI Ni, SSTfl B <D> L S<l> :B«i9: F RINTSSTRB<C>MS<2> 

64 OOTU50 

100 PR 1NTSSTRE < B > LS < 1 > SSTRB (II > MS < 3 ) : B«I3t 1: FORQ* 1TO30: NEXTQ 

101 PR INTSSTRB < D'- i ) LS C 3 ) SSTRB CD ) MS (1) 

102 P0KE368??;. 130 = P0K:E368?7, 0:00T056 

110 PRIHTSSTftB(B)LSCl>SSTRB<!D5MS<4> :D»=B— i : FORQ«1TO30:NEXTQ 

111 PRINTSSTRBQl11)LS<4)SSTRB<B)MS(2 ) 

1 12 P0KE36877. 130:P0KE36877,8:G0T056 

120 IFB+0-2<1ORD+0-2*16RNBSS-TSTHEN56 

121 IFPEEK < F < B+0“2 ) >*320RB>=19THEN56 

122 IFH <B+fl-2 > =VIHEN608 

6876.0 KEF<!D+a " 2> ' 32 '' P0KEF<D ' f0,, ' 2>+22j32; SC-SC+l:P0KE36876.250:P0KE36876;250:POKES 
124 GOT056 

“ Ifirr “ :PRINT8$TnB <l ,>M * < 1 >S*TRB<B>«*<2) = N0<™ 

606 PRINT”GENOMMEN^IN’ BER^EINE^"*BIENE^WRrI™ HRST EINE BLUME " 

608 PR I NT ” BESRMMELTE BUJMEN^’SC 
610 PRINT “PRESS FIRE TO START! 11 

612 GET RS: IF- < < PEEK <37151 > RNB32.) -0K>1 RNBRSO ” “THEN612 
614 RUN 
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Wenn Sie keine Lust 
haben, alle 



einzutippen, 


...wir helfen 
Ihnen! 



Sie erhalten von uns innerhalb 1 Woche den kompletten Datentrager mit alien 
Programmen dieser Ausgabe fur Commodore (beinhaltet VC-64 + VC-20 + C16) und 
fiir Schneider (CPC-464) Preis je Kassette DM 16,- 

Preis je Diskette DM 20,- 
(Diskette nur Commodore) 


Bitte nebenstehenden Bestellcoupon ausfiillen und einsenden an: 
Tronic-Verlag, Postfach 41, 3444 Wehretal 1 


"^4 














TV® is* - II «* 








\V^‘ 














Aus diesem Heft: 


Commodore Kassette 
Bestell-Nr. COM C 1/1 16,- DM 
Bestelf-Nr. COM D 1/1 20,- DM 

Schneider Kassette 
Bestell-Nr. COM S 1/1 16,- DM 


Commodore 64 


Mauern/Widerstand, Kassette 8,- 
DM, Diskette 15,- DM, Bestell-Nr. 
C 41 

Space-Comets/Erdspalte/Sprite- 
Data, Kassette 15,- DM, Diskette 

23,50 DM, Besteli-Nr. C 51 

Autostart/ Bestellschein/ Roadpain- 
ter, Kassette 16,50 DM, Diskette 

23,50 DM, Bestell-Nr. C 61 

H ardeopy / S pace- F ighter/ Data- G e- 
nerator, Kassette 15,50 DM, Disket¬ 
te 19,50 DM, Bestell-Nr. C 71 
M onster- Attack/ Block- Painter/ E p- 
son-Drucker, Kassette 16,50 DM, 
Diskette 23,50 DM, Bestell-Nr. C 81 
Projekt/Datenbank, Kassette 16,— 
DM, Diskette 23,50 DM, Bestell-Nr. 
C 91 

Spiders/The Basic, Kassette 16,50 
DM, Diskette 23,50 DM, Bestell-Nr. 
C101 


M ulti- Key/ S-Tool 64/1 nterrupt- Pro¬ 
gramme, Kassette 16,- DM, Diskette 
21,- DM, Besteli-Nr. UC2/85 
S pritehilfe/ D iskloader/ Directory, 
Diskette 21,- DM, Bestell-Nr, UC 
3/85 

Tape-Directory/Asmon/Data-Gene- 
rator, Kassette 15- DM, Diskette 
21-DM, Bestell-Nr. UC3/85 
Fast-Load, Kassette 10,— DM, Be¬ 
stell-Nr. 4/85 

Diskmonitor/Zeichensatz, Diskette 
20,- DM, Bestell-Nr. UC 5/85 
Wustenrallye/Jet-Pac/Black Moore 
Castle, Kassette 17,50 DM, Diskette 

23,50 DM, Bestell-Nr. C 32 
High Noon/Skeet/Grafik-Designer, 
Kassette 17,50 DM, Diskette 23,50 
DM, Bestell-Nr. C 121 
Painter/Star-Baddie/Editor, Kasset¬ 
te 17,50 DM, Diskette 23,50 DM, 
Bestell-Nr. C 22 


Schneider CPC-464 


Autorennen, Kassette 11,- DM, Be¬ 
stell-Nr. US 3/85 

Universal-Data! VI, Kassette 9- 
DM, Bestell-Nr. US 4/85 
Computerschrift/Symbol-Swap, 
Kassette 10- DM, Bestell-Nr. 
US 5/85 



Bestellschein/Glucky, Kassette 8,50 
DM, Diskette 15,- DM, Bestell-Nr. 
V 61 


Multigraph/All Rammer, Kassette 
11 - DM, Diskette 15,50 DM, Be¬ 
stell-Nr. V 71 

Zyklo/Meteorit, Kassette 11 - DM, 
Diskette 19,50 DM, Bestell-Nr. V81 
Garten/SchloB Gruselstein, Kassette 
14,- DM, Diskette 19,50 DM, Be¬ 
stell-Nr. V 91 

Fressman/Outlaw, Kassette 14,- 
DM, Diskette 19,50 DM, Bestell-Nr. 
V101 

Prost/ Buffalo Bill, Kassette 14,- 
DM, Diskette 19,50 DM, Bestell-Nr. 
V121 

Joy Man/Powerpack, Kassette 14- 
DM, Diskette 19,50 DM, Bestell-Nr. 
V 22 

Der rasende Malocher/Frankie goe 
to Pharao, Kassette 14,- DM, Dis¬ 
kette 19,50 DM, Bestell-Nr. V 32 

Grafik-Painter, Kassette 10,- DM, 
Bestell-Nr. UV 5/85 


Bestellcoupon 

“Compute mit“ Software-Service * “Compute mit“ Software-Service * “Compute mit“ Software-Service 

Die Zustellung erfolgt: gegen Vorkasse □ Oder Inland per Nachnahme □ 

Ausland: nur gegen Vorkasse + Versandkosten 

innerhalb von 1 Woche 

Entnehmen Sie bitte aus 
Bitte liefern Sie mir: 

unserer Preisliste die notwendigen Angaben fur Ihre Besteilung: 

□ Kassette fur 

□ Anzahl 


Bestell-Nr. 

□ Diskette fur 

□ Anzahl 


Bestell-Nr. 

zum Preis von gesami 

DM 



Name/Vomame: 

Strafle, Nr.: 


PLZ/Ofl: 

Dalum. IMerschrili 
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Die Zeit des Experimentierens ist 
jetzt endgultig vorbei. Mil dem 
Schneider Colour Personal Compu¬ 
ter „C PC464“ verfugen Sie uber aus- 
gereifte Computertechnik in seiner 
reinsten Form. Das beste Beispiei fur 
hochste Technologie in Farbe, kom- 


promiBlose Perfektion in Bedie- 
nungskomfort und Ausstattung. 
Durch sein attraktives Preis-/Lei- 
stungsverhaltnis ist der „CPC464“ 
anderen Computern dieser Klasse 
weit uberlegen, denn der „CPC464“ 
ist der einzige mit einer Schreibma- 


schinentastatur und 64 KB RAM (Ar- 
beitsspeicher) und 32 KB ROM ($y- 
stemspeicher) und einem eingebau- 
ten Cassettenrecorder (Datacorder) 
und einem Bildschirm-System 
und einem sehr schnellen Standard- 
Basic. 


Schneider „CPC464“ - der fortschrittliche Computer 

fur die Familie 


Der )I CPC464‘ i ist sicherlich sehr vie! 
mehr als nur ein Gerat fur Telespiele. 
Mit hochauflbsender Graphik, 80 
Zeichen/Zeile Bildschirmanzeige zu- 
sammen mit zweckentsprechen- 
den B’ildschirmsystemen, ist der 
„CPC464“ der preisgunstigste Com¬ 
puter mit all den Eigenschaften zum 
„Einsteigen und Anfangen*. Die gro- 
Be Auswahi attraktiver Programme fur 
die ganze Familie, vom Computer- 
spiel bis hin zu kaufmannischen Lo- 
sungen, tragen zu seiner Vieiseitigkeit 
bei. 

Geubte Benutzer werden sehr schnell 
die E rweiterungsmogtich keiten zu 
schatzen wissen: 

-die eingebaute parallel© Drucker- 
Schnittstelle, 

- das wahlweise anzuschlieBende 
Disketteniaufwerk, das sowohl 
CP/M* (damit konnen mehr als 
3000 bewahrte Programme ver- 
wendet werden) als auch die Pro- 
grammiersprache LOGO (bekann- 
teste Sprache fur Lehr- und Lern- 
programme in den USA) beinhal- 
tet. 

-die nahezu unbegrenzten Moglich- 
keiten des Z80-Daten-Bus, mit 
dem erweiterten ROM-AnschluB. 
Computer-Neulinge brauchen keine 
Angst davor zu haben, den 
*CPC464“ zu benutzen: Der Compu¬ 
ter wird ausgeiiefert-mit einer Einfuh- 


rungscassette, die Sie mit dem Com¬ 
puter und seinen Moglichkeiten ver- 
traut macht. Das Benutzerhandbuch 
fuhrt Anfanger Schritt fur Schritt hin 
zum probiemlosen Gebraueh und gibt 
detailiierte Auskunfte uber die Hard- 
und Software-Eigenschaften des 
„CPC464“. 

Ein bedienungsfreundlicher Joystick 
(JY-1) ist zusatziich fur den 
„CPC464“ erhaltlich. Der Griff liegt 
gut in der Hand und enthalt einen 
schnell reagierenden Feuerknopf. Die 
Standsicherheit gewahrleisten seine 
SaugfuBe. Das Kabei zum AnschluB 
an die Tastatur ist 150 cm lang. Uber 
eine eingebaute Buchse ist der An¬ 
schluB eines zweiten Joystick mog- 
lich. Die optionale Stromversorgung 
M P-1 ermoglicht den AnschluB des 
„CPC464“ an jedes modeme Farb- 
fernsehgerat. Besonders nutzlich fur 
alle, die den grunen monochromen 
Bildschirm gewahlt haben und die 
Graphik in Farbe darstellen wollen. 
Das MP-1 ist handllch und paBt im 
Stil zum „CPC464“. 

Das „CPC464“-System bietet nahe¬ 
zu unbeschrankte AnschluBmoglich- 
keiten: 

-das Floppy-Disk-System fur 
schnellen Zugriff auf groBe Daten- 
mengen 

- Verstarker und Lautsprecher fur be¬ 
ste Stereowiedergabe 


- Drucker zum Schretben von Briefen 

- Ausdruck von graphischen Darstel- 
' lungen, Programmlisten, Rechnun- 

gen usw. 

- Datenkommunikation mit anderen 
Computern uber Modems 

- ROM-Erweiterung fur zusatzliche 
Hard- und Software und weitere 
Anwendungsmoglichkeiten. 

Die Vorteite des „CPC464“ liegen 
in der Kombination von lelstungs- 
fahiger Hardware und benutzer- 
freundlicher Software 

Z80 CPU - der weltweit meistverwen- 
dete Mikroprozessor in der Home- 
computerklasse, mit dem ein GroBteil 
der vorhandenen Software genutzt 
werden kann, bietet vor allem die 
Moglichkeit, das Betriebssystem 
CP/M* zu benutzen. 

64 K RAM - der „CPC464“ hat 
standardmaBig 64 K RAM, von de- 
nen uber 42 K tatsachlich dem Be¬ 
nutzer zur Verfugung stehen. Dies 
wird erreicht durch die ROM Over- 
lay-Technik. Der zur Verfugung ste- 
hende Speicherplatz ermoglicht es, 
auch groBere Programme zu entwik- 
keln. 

Graphik - der „ CP 0464“ unterstutzt 
3 Darstellungsarten, 80spaltigen 
Text, eine Palette von 27 Farben und 
eine Auflosung bis zu 640 x 200 
Biidpunkten. 
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Tastatur - eine Schreibmaschinen- 
tastatur mit 74 farblich abgesetzten 
Tasten und besoncfers groBer „EN- 
TER“(Eingabe)-Taste. Die Cursor- 
Kontrolitasten sind funktioneli ange- 
ordnet, und ein eigener Ziffernblock 
ermoglicht bequeme und schnelle 
Datenerfassung. 

Eingebauter Oaten-Recorder - 

Cassettenspeicher steht mit dem ein- 
gebauten Daten-Reeorder zur Verfu- 
gung. Damit konnen Sie Ihre Pro¬ 
gramme einlesen und abspeichern, 
ohne sich mit den feidigen Problemen 
der Kompatibilitat, des AnschlieBens 
und des richtigen Pegels abgeben zu 
miissen. 

Programme konnen entweder mit 1K 
Baud Oder 2K Baud (Schne(l-Laden) 
geschrieben werden. Die Lesege- 
schwindigkeit wird automatised soft- 
waremaBig eingesteilt. 

BASIC - entspricht dem Industrie- 
standard, 

Sie werden sehen, daB es schnelter 
und vielseitiger ist, ats Sie es von 
BASIC erwarten, mit viefen Erweite- 
rungen fur Graphik und Musik. 
Erweiterter Zeiehensatz - voiler 8- 
bit Zeichensatz mit Graphik und 
Symbolen, der uber die CHR$(n)- 
Funktion, also uber die Tastatur, zu- 
ganglich ist. 

Funkiionstasten - bis zu 32 Tasten 
konnen beim *CPC464“ mit biszu 32 
Zeichen pro Taste belegt werden. 
Fenster - bis zu acht Fenster fur 
Text und 1 Fenster fur Graphik kon¬ 
nen definiert werden. 

Ton - der „CPC464“ bietet Musik 
aus 3 Kanalen (Stimmen) uber 8 
Oktaven. Fur jeden dieser Kanale 
konnen unabhangig Tonhohe und 
Lautstarke gewahlt werden. Sie ste- 
hen als linker, mittlerer und rechter 
Kanal an der Stereo-Ausgangsbuch- 
se zur Verfugung. Der eingebaute 
Lautsprecher gibt die Musik in Mono 
wieder. Die Lautstarke ist dabei re- 
gelbar. 

DruckeranschluB - ein Centro- 
nicskompatibler Drucker-AnschluB 
nach Industriestandard ist vorhan- 
den. Die „Busy“-Signalleitung wird 
verwendet fur „Handshake" (gegen- 
seitige Obertragung). 


Systemerweiterung - Viele Hard- 
ware-Schnittstellen sind vorhanden, 
die zusatzliche Software-Erweiterun- 
gen ermoglichen. 

ROM-Erweiterung - jedes ROM 
belegt die oberen 16 K des Arbeits- 
speichers. Uber die Firmware konnen 
bis zu 240 R 0 M - E rweiterungen zu je 
16 K angesprochen werden. 


Der lesefreundliche Bifdschirm 

Der grune monochrome Bildsehirm 
ist ideal fur Aufgaben aus dem kauf- 
mannischen Bereich, fur Textverar- 
beitung, Finanzplanung, Kassenfuh- 
rung und Programmentwicklung mit 
dem „CPC464“. 

Text und Zahlen sind scharf und klar. 
Vergleichen Sie, wieviel Sie mit ei- 
nem Blick auf die 80spaltige Anzeige 
des „GT 64“ erfassen konnen und 
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wie wenig bei einer 40spaltigen An¬ 
zeige ubficher Home Computer. Be- 
trachten Sie dies einmal anhand ei- 
. ner Programmliste. 

Genau wie beim „CTM 640“ ist beim 
„GT64“ die Stromversorgung fur 
das Gesamtsystem eingebaut. Zu- 
sammen mit den hervorragenden Ei- 
genschaften des „CPC464“ haben 
Sie damit ein System, das ihnen 
auBergewdhnlich hochwertige Com- 
putertechnik und vielseitige Anwen- 
dungsmoglichkeiten bietet, wie sie 
vergleichsweise nur in wesentiich hd- 
heren Preiskiassen angeboten wer¬ 
den. 

Sinnvoll und praktisch 

Wenn Sie den „CPC464“ mit dem 
„GT 64“ benutzen, konnen Sie mit 
Hilfe der optionalen „M P-1 “-Strom¬ 
versorgung auch I hr normales Farb- 
fernsehgerat anschlieBen. Alle Far- 
ben des „CPC464“ konnen dann 
ohne jegliche Anderungen dargestelit 
werden. 


Fur Spitzenfeistungen in 
jedem Aufgabenbereich: 

Der Schneider „CPC464 tc 
- der vollausgestattete Computer... 

- Komplett ausgestattetes System und bis zu acht Textfenster 
einschlieBlich RGB Farbbildsehirm - JoystickanschfuB fOr zwei Ger8te 
Oder grunem Monochrom-Schirm 

-Eingebauter „Schne!l-Lade“ Da- - Cenironieskompatibler AnschluB 
ten-Recorder _ fur Parallel-Drucker 

- 64 K RAM Arbeitsspeicher -Ein kompletter Erweiterungsan- 
-„Echte" Schreibmaschinentastatur schluB fur ROM, serielle Schnitt- 

mit 74 Tasten, abgesetztem Ziffern- stellen, Disketten-Laufwerke und 

block, frei definierbaren Funktions- Modem 

tasten und einstellbarem Daueran- - 3stimmiger Stereo-Ausgang uber 8 

schla S. Oktaven mit Hulfkurven fur Laut- 

- 3_Anzeigearten, 27 Farben, frei defi- Starke und Klang 

nierbare Blinkfrequenz - Umfassendes Programmangebot 

- Hohe ^ Bildschirmauflosung fur fur kaufmannische Bereiche, Lehr- 
80spaltigen Text, 640 x 200 adres- und Lernprogramme und die be- 
sierbare Bildpunkte fur Graphik liebtesten Computerspiele 
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Karl-Hermann Rollke 

rundkurs in 

224 Seiten / Band 1 / 

Besl-Nr. 3046 

ISBN 3-88745-046-9 (1984) 

DM 24,80/sFr 23,-/$ 193,- 

Der sichere Einstieg in Pascal fur den 
Informatik-Unterricht in der Sekun- 
darstufe II, fur Informatik-Kurse an 
der Volkshoehschule, fur Kurse und 
als Sekundarliteratur an der Hoch- 
schule, fur Hobby-Programmierer 
und zum Selbststudium - von einem 
Lehrer aus der Praxis geschrleben. in 
einer leiciit verstandlichen Spraehe 
werden Sie mit einer vieigenutzten 
Programmiersprache vertraut ge- 
macht. Sie machen Ihre ersten 
Schritte im UCSD-Pascai-System, 
iernen den Aufbau eines Paseal-Pro- 
gramms, reservierte Worter, Syntax- 
diagramme, Prozeduren, Funktionen, 
Rekursionen und Sortieralgorithmen 
kennen. Ihre neuen Kenntnisse kon- 
nen Sie direkt an vieien Obungen 
und Beispieiprogrammen erproben, 
die auf einem Appie-Rechner getestet 
wurden und leicht auf andere Syste- 
me zu ubertragen sind. 







Karl-Hermann Rollke 

Grundkurs in Pascal 


224 Seiten / mit Abb. / Band 2 / 

Best-Nr. 3061 

ISBN 3-88745-061-2 (1985) 

24,80 / SFr 23,-/$ 193,- 


Lehrer und Schuler, Studenten und 
Autodidakten runden mit diesem 
Band ihren Einstieg in die leistungs- 
fahige Programmiersprache Pascal 
ab. Der zweite Teii de$ Grundkurses 
behandelt als ein Hauptthema die 
Datenstrukturen: dazu gehoren Ver- 
bunde, Mengen, Dateien und Zeiger. 

Weitere Schwerpunkte: Das Biblio- 
thekskonzept in UCSD-Pascal; Ein- 
fuhrung in die Programmierung auf 
Maschinenebene; Vorschlage fur 
Projekte. Viele Ubungen und Bei- 
spiele, die auf einem Apple getestet 
wurden, helfen Ihnen, I hr Wissen 
direkt zu erproben und anzuwenden. 


Sybex Verlag, DOsseldorf 



Ziel des Spiels ist es, eine moglichst 
groBe Punktezahi zu erreichen. Dies 
geschieht dadurch, daB man seine 
Schlange jede Menge Mause ver- 
zehren laBt. Gesteuert wird die 
Schlange mit einem Joystick Oder 
den Cursortasten. 

Die Schlange darf naturlich nicht in 
eine Mauer Oder in sich selbst bei- 
Ben, denn das ware ihr Ende. Ebenso 
dart sie keinen I gel fressen - der 
wiirde ihr im Hals stecken bleiben. 

Wahrend des Spieis werden ange- 
zeigt: 


Am oberen Rand Score, Bonus und 
Highscore, im unteren Rand die ver- 
bliebenen Leben. 

Fur jede verzehrte Maus gibt es 10 
Punkte. Nach jeweils 350 Punkten 
gibt es etnen Bonus, nach jeweils 500 
Punkten ein neues Leben und einen 
weiteren Bonus. Nach jeweils 1000 
Punkten beginnt eine neue Stage. 

Die Farbe des Spielfelds andert sich 
und es werden 2 zusatzliche Hinder- 
nismauern aufgestellt. AuBerdem gibt 
es einen weiteren Bonus. Insgesamt 
gibt es 4 soicher Stages. Aber es ist 


schon schwierig, uber 3000 Punkte 
zu erreichen und noch ein Leben 
ubrig zu haben. Das erfordert vie! 
Geschick und Obung. 

Der letzte Bonus ist ein Zeitbonus, 
den es wahrend der beiden letzten 
Leben gibt. Hierbei erhcift man alle 10 
-Sekunden 1-15 Punkte (RND-Funk- 
tion). 

Obrigens wird jeder Bonus durch die 
RND-Funktion ermitteit. 

Nach Spielende wird der Bonus zum 
Score hinzugezahlt. Die Haupt- 
schwierigkeit des Spiels besteht dar- 
in, daB die Schlange jedesmal, wenn 
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sie eine Maus verspeist hat, ein 
Stuck wachst. Da nicht alle Mause 
den gleichen Nahrwert haben, wachst 
die Schlange auch nicht immer gleich 
viel. Die Zahf der neuen Korperseg- 
mente liegt zwischen 1 und 7 (RN D). 

Speicherplatzbedarf 

8 394 Bytes (Listing) 

40 891 Bytes (nach Durchlauf 
[DIM ...]) 

Hier noch ein kieiner Tip: 

Vielleicht solite man sich fur eine Art 
der Steuerung entscheiden (nur Joy¬ 
stick Oder nur Tastatur). Man kann 
dann einen Teit der Abfrage strei- 
chen. Die Schlange wird dadurch 
etwas schneller. Will man z. B. nur 
mit Joystick steuern, dann konnen in 
den Zeilen 1210 und 1220 die IN- 
KEY-Abfragen gestrichen werden 
(OR INKEY[n] - 0). 

Die Abfrage muB dann lauten: 

1210 IF jy = 4 THEN ... 


Die wichtigsten 
Variablen: 


co = Farbe Schlange 
ink3 = Farbe Mause, Igel, Mauern, 
Schrift 

bo = Zahler Bonus 

bx = Zahler neues Leben 

sc = Score 

hsc = H ighscore 

zc = Bonuspunkte 

le = Anzahl Leben 

le(pl) - Anzahl Schlangensegmente 

by = Zeichencode [CHR$(by)] 

hin$ = Hindernismauern 

cob$ = Schrift „COBRA" 


Die Eingabe der Listings kann er- 
leichtert werden, indem die automati- 
sche Zeilennumerierung eingesetzt 
wird. Hierzu muB nur der Befehl 
,>AUTO“ direkt eingegeben werden. 


Die Zeilen sind fortlaufend in Zehner- 
schritten durchnumeriert. 

Als weitere Erleichteung kann folgen- 
des Programm verwendet werden; 

10 KEY DEF 17,1,40 
20 KEY DEF 19,1,41 
30 KEY DEF 26,1,35 
40 KEY DEF 68,1,36 
50 KEY DEF 22,1,63 
60 KEY DEF 16,1,34 
Das Programm wird mit „RUN“ ge- 
startet und kann nach Durchlauf mit 
^DELETE 10-60“ geJoscht werden. 
Jetzt konnen Zeichen, die normaler- 
wetse mit S HI FT eingegeben werden 
mussen, ohne SHIFT eingegeben 
werden. Nachfolgend eine Tabelle 
der neuen Belegung: 

Taste: Belegung 

[ ( 

] ) 

■? # 

TAB $ 

\ ? (PRINT) 

OLR “ 


10 REM ********************** 


20 REM * * 
30 REM * COBRA * 
40 REM * * 
50 REM * <c)1985 by A.Hess * 
60 REM * * 


70 REM ********************** 

80 SOTO HO 

90 IF 1e< =2 THEN 2 c=zc+INT<RND*i5>+1 
100 RETURN 

110 EVERY 500 GOSUB 90 

120 hin$=STRING$(5,248)sstage—i 

130 DEFINT a-zsMODE 1:ink3~24sINK 0,0s INK 1,9s INK 2,15:INK 3, ir»k3: BORDER O 
140 SYMBOL AFTER 47 

150 SYMBOL 48,126,66,66,98,98,98,98,126 
160 SYMBOL 49,24,24,24,56,56,56,56,56 
170 SYMBOL 50,126,66,2,126,96,96,98,126 
180 SYMBOL 51,126,2,2,126,6,6,6,126 
190 SYMBOL 52,64,64,96,104,104,126,12,12 
200 SYMBOL 53,126,64,64,126,6,102,102,126 
210 SYMBOL 54,126,64,64,126,98,98,98,126 
220 SYMBOL 55,62,34,2,6,6,6,6,6 
230 SYMBOL 56,126,66,66,126,98,98,98,126 
240 SYMBOL 57,126,66,66,126,6,6,6,126 
250 SYMBOL 130,126,70,70,64,94,94,66,126 
260 SYMBOL 131,99,119,95,75,67,67,91,91 
270 SYMBOL 132,126,66,66,70,70,70,70,126 
280 SYMBOL 133,97,97,97,97,99,54,2B,8 
290 SYMBOL 134,124,68,68,126,102,102,102,102 
300 SYMBOL 135,66,66,66,127,99,99,99,99 
310 SYMBOL 136,32,32,32,48,48,48,50,62 
320 SYMBOL 137,124,68,68,124,70,70,70,126 
330 SYMBOL 241,0,60,110,118,110,118,60,0 
340 SYMBOL 242,60,60,90,219,153,255,126,24 
350 SYMBOL 243,56,108,99,255,255,99,108,56 
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programme_ 

360 SYMBOL 244,24,126,255,153,219,90,60,60 
370 SYMBOL 245,28,54,198,255,255,198,54,28 
380 SYMBOL 246,1,2,4,50,49,63,95,255 
390 SYMBOL 247,0,20,93,254,127,255,126,85 
400 SYMBOL 248,255,161,161,255,137,137,137,255 
410 SYMBOL 249,126,66,64,126,2,98,98,126 
420 SYMBOL 251,62,34,34,62,98,98,98,98 
430 SYMBOL 253,124,64,64,124,96,96,96,124 
440 SYMBOL 254,124,76,76,64,64,68,68,124 
450 ENT 2,5,0,1,5,-1,1,1,-1,1,2,-2,1,2,-10,1 
460 ENT 3,40,-3,2 
470 ENT 1,25,5,4,15,-7,2 

480 FOR i=l TO 4;READ xr(i),yr<i)sNEXT i 
490 ' 

500 PAPER OsCLSsPEN 1;PRINT CHR$(254);CHRT(132)sCHR$ i 137)?CHR$(134);CHR$(251):PE 
N 3 

510 FOR x=0 TO 39 
520 FOR y=-l TO 8 

530 LOCATE x+i,y+5;IF TEST(x*2,399-y*2>*1 THEN PRINT CHR$(248>; ELSE PRINT" 

540 NEXT y,x 
550 by“241:PEN 3 

560 LOCATE 7,15:PRINT"Versuchen Sie moeglichst":LOCATE 7,16;PRINT"viele Mae 
use zu fressen!"; LOCATE 7,17:PRINT"Gehen Sie d 
abei den I gain": LOCATE 7,18: PRINT'*aus dent Weg ! " 

570 LOCATE 7,20:PRINT“Starten Sie das Spiel mit" 

580 LOCATE 7,21:PRINT"dem"PEN lsPRINT’* Feuerknopf ";sFEN 3 
590 LOCATE 7,22sPRINT"oder mit der 'COPY'-Taste !" 

600 jr=2:x=ls y-1:coj—2:k=Osbo=0:stage=i 

610 xl=x: yl=ys by=24i: to-coj:GOSUB 1270s coj=coj+i: IF coj—3 THEN ciaj—l 
620 x=x+xr<jr>:y=y+yr(jr):IF x>k AND y>k AND x<41-k AND y<26-k THEN 650 
630 x=x-xr (jr) :y=y-yr( jr): jr=jr+l: IF jr>4 THEN jr=jf—4 
640 IF jr=2 THEN k=k+i:y=y+l:IF k=13 THEN 490 
650 x1=x:y1=y sby=241+j r:ca=3:GOSUB 1270 

660 IF Tl = l THEN f1=0:INK 2,9: INK 1,15 ELSE -f 1=1: INK 2,15; INK 1,9 
670 IF JOY (OX 16 AND INKEY (9)00 THEN FOR n=l TO 100; NEXT: GOTO 610 
680 r 

690 DIM x U> ,y (1) 

700 35=1:Ie=5:bx=0:ba=0:zc=0;ink3=24 
710 sc=0 
720 bx=0 

730 IF le=0 THEN sc=sc+zc:le=QsSOSUB 1430sGOSUB 1360:ERASE x,ysba=0:zc-O:GOTO 6 
90 

740 ERASE x,y:DIM x (1,4000) ,y {1,4000) s PAPER' Os PEN 3:GDSL1B 1590sCLS 
750 xp < 1 >=9:yp(l)=10:jr<l)=2:I<1)=20:p(1)=1+1(1) 

760 xp(0> =30:yp <0> =20:jr <0)=4:1<0)=20sp(O)=1(0>+l 
770 caj=lsco=3 
780 FOR xl=i TO 40 

790 yl=2sby=248:GOSUB 1270:yi=25:GOSUB 1270 
800 NEXT xl 

810 IF sc>=1000 THEN GOSUB 1750 
820 IF sc>=2000 THEN GOSUB 1790 
830 IF sc>=3000 THEN GOSUB 1820 
B40 IF sc>=4000 THEN GOSUB 1850 
850 FOR y1=2 TO 25 

860 xl=lsGOSUB 1270:x1=40:GOSUB 1270 

870 NEXT yl 

880 FOR i = l TO 10 

890 GOSUB 1300:IF i/2=INT(i/2> THEN by=247 ELSE by=246 
900 GOSUB 1270 
910 NEXT i 
920 GOSUB 1360 

930 MOVE 0,383:DRAW 639,383,0:DRAW 639,381,0sDRAW 0,381,Ostf-Q 
940 * 

950 FOR pi=0 TO as-l 

960 SOUND 2,240,10,13,0,2,1 

970 p=p<pl):x=xp(pl)sy=yp(pi):jr=jr(pi)s1=1(pi):x=x+xr(jr) ty-y+yr (jr) 

980 x2=x*16-15:y2=414-y*16s c1=TEST <x2+12,y2-6):c2=TEST <x2+8,y2-5> 

990 IF cl=l OR cl=2 THEN 1070 
1000 IF c2=3 THEN 1070 


©©eimpwfre miff 


44 


5/85 



programme 


1010 IF ei< >3 THEN 1140 

1020 SOUND 2,100,50,15,,3 

1030 1Cpl)=I<pl)+INT(RND*7)+i 

1040 BQSUB 1300;by=246;co=3:GQSUB 1270 

1050 GQSUB 1300s by=247s GOSUB 1270 

1060 sc=sc+10s bo=ba+l:bx=bx+l;GOSUB 1360sGOTO 1140 
1070 ' 

1080 le=le—1 ; t-f = 1 s by=241+jr s x i=x s yl=y ; co=2 

1090 FOR 1-1 TO 5 

1100 SOUND 2,90+i*i*10,42,15,,l 

1110 GOSUB 1270;ca=ca+i:IF co=4 THEN co=2 

1120 IF(SO<2> AND 128)=128 THEN 1120 

11-30 NEXT i 

1140 xi=x <pl *p-l) s IF xlOO THEN yi=y <pl,p-1> s co=coj s by =240- (pl=0) sGOSUB 1270 
1150 xi=x:yl=y: cd= 3:by=241+jr:GQSUB 1270 
1160 x(pi,p)=xsy(pl,p)=y:xp(pl>=Ksyp(pl>=y 

1170 IF p-l>0 THEN xl=x (pi ,p-l ) s IF xlOO THEN yl=y (pi ,p-X ) 5CO=0sby=241;G0SUB 127 

1180 p<pl)=p(pl>+i;e*=INKEY# 

1190 FOR pi 1=0 TO as-1 
1200 jy=JQY(0) 

1210 IF jy=4 OR INKEY(8)=0 THEN jr(pll)=4 ELSE IF jy=S OR INKEY(1)=0 THEN jr(pll 

1220 IF jy=l OR INKEY(O)=0 THEN jr(pli)=i ELSE IF jy=2 OR INK£Y<2>=0 THEN jr(pli 
1230 NEXT pll,pl 

1250 If t?=r™EN N 730 K 1,9:INK 2 ’ 1S:i: ° J = 2 ELSE INK 1. IS, INK 2,9=coj=l 

1260 GOTO 940 
1270 ' 

1290 RETURN 1nk3:L ° CftTE Xl,yl:PEN COiPRINT CHR*<by > 5 
1300 ' 

1310 *1-INT(RND(2)*40+1)s yi=INT<RND(3)*24+2) 

1320 x2=xi*16-15sy2=414-yl*16 
1330 c 1 =TEST(x 2+12,y2-6)s c2=TEST < x2+6,y2-6) 

1340 IF clOO OR c2<>0 THEN GOSUB 1310 
1350 RETURN 

1360 IF bx=35 THEN FOR n=l TO lOsSOUND 5,50*n,6,15:NEXTs 2 c=zc+INT<RND*30)+10:bx = 

b °: 50 THEN le=le+i = zc=: 2c+INT(RND*80) + 10:bD=0sS0SUB 1670 
I 08 O IF sc>hsc THEN hsc=sc 

CHR*<249) ; CHR* (254) LOCATE 12,1:PRINT CHR* £ 1 + 7 ) « pHR* 1 1 

32 )3 s"sLOCATE 24,1;PRINT CHR*U35);CHR*<249);CHR*<2 l ^ fl - PKINT CHR* < 1,.7> , CHR* ( i 

^<144) ; L ° CftTE 16 ’ 25SPRIWT CHRt <144> 5 CH ^ ( i36);CHR4: (253) STRING* (le,244) ; CH 

^l^PRINT^USING"#####"; 5 sc: LOCATE 13,1, PRINT USING"####", zc: LOCATE 28 

Hit Re“rn 36,1:FR:NT CHR * (2S45 ; CHR *“32>;CHR*a37>;CHR*(134);CHR*<251) : PEN 3 
1430 GOSUB 1360 

1440 PAPER 2s INK 3,26,0sSP££D INK 10,4:FEN 3 

llln 10,llsPRINT SPACE*(15);sLOCATE 10,12sPRINT SPACE*(15>s 

10 ’ 12! «=" * ■♦CHR«130I+CHR*C2S1,4CH 
l * 1} (-J-)+ +CHR* C132)+CHR*(133)+CHR*(253) + 

CHR*(134)+ M * " 

1470 FOR i=l TO LEN(t*> 

1480 PRINT MID*(t*,i,1);s SOUND 2,400,10,15,,! 

1490 IF (SQ(2) AND 128)=12S THEN 1490 
1500 NEXT i 

1510 INK 3,24:PAPER 0;G0SUB 1380sPAPER 0:L0CATE 3,2S:PRINT" Noch ein Spiel (J/N) 

1520 i*=INKEY*sIF i*="J" OR i*=»j» THEN CLSsGOTO 700 
l-i^O IF i*= ,, N" OR i*="n" THEN 1880 
1540 GOTO 1520 
1550 * 

1560 PAPER 0 
1570 ink3=24 
1580 RETURN 
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programme_ 

1590 ' 

1600 PEN 3sPAPER O 

1610 LOCATE 1,25sPRINT SPACEt(4Q)s 

1620 LOCATE 1,25sPEN 3 

1630 PRINT" Druecken Sie den Feuerknapf Oder 'COPY'"; 

1640 IF JOY (OX 16 AND INKEY (9K>0 THEN 1640 
1650 RETURN 

1660 DATA 0,-1,1,0,0,1,-1,0 

1670 FOR n=l TO 10 

1680 FOR t=20 TO 300 STEP 50 

1690 SOUND 5,t,1,15 

1700 NEXT t 

1710 FOR t=300 TO 20 STEP -50 
1720 SOUND 5,t,l,15 
1730 NEXT t,n 
1740 RETURN 

1750 PEN 3:LOCATE 2,9sPRINT hint;LOCATE 35,11;PRINT hintszc=zc+INT(RND*3Q>+1 
1760 ink3=15 
1770 PEN 1 
1780 RETURN 

1790 GOSUB 1750sPEN 3:LQCATE 6,6;PRINT hintsLOCATE 18,15sPRINT hintsPEN i!zc=zc+ 
INT(RND*50)+1 
1800 ink3=2 
1810 RETURN 

1820 GOSUB 1790sPEN 3sL0CATE 5,20sPRINT hintsLOCATE 24,22sPRINT hintsPEN l:zc=zc 

+INTCRND*70)+1 

1830 ink3=6 

1840 RETURN 

1850 GOSUB 1820sPEN 3:L0CATE 8,22;PRINT hintsLOCATE 17,4;PRINT hintsPEN l:zc-zc+ 

INT<RND*100>+1 

1860 ink3=18 

1870 RETURN 

1880 PAPER Os INK 3,24:INK 2,6,24=SPEED INK 10,4:CL5 

1890 PEN 3sLOCATE 1,4sPRINT"Das Spiel kann mit *‘;sPEN 2:PRINT"'GOTO 700'";sPEN 
3:PRINT” wisder":PRINTsPRINT“gestartet werden, o 

hne class der High-" sF’R I NT SPRINT "scare verloren geht !" 

1900 LOCATE 1,23s END 


Krumi: 

Schneider CPC-464 

Bei Krumi handelt es sich um eine Variation des 

bekannten Pacman-Spiels 

Krumi ist ein auBerst hungriges kann Krumi auch die Geister fressen, Gesteuert wird Krumi mit den Cur- 
Mannchen, das dauernd gelbe und die normalerweise eine todtiche Ge- sortasten Oder mit Joystick, 
rote Kekse fressen muB. Fahrt es fahr fur ihn darstellen. Punkteverteilung: 


durch ein leeres Feid, so muB es von Hat Krumi ein Labyrinth leergefres- Keks : 2 Punkte 

seiner Notration, den .^espern" zeh- sen Oder uber 500 Punkte erreicht, so Geist gefressen : 80 Punkte 

ren. FriBt Krumi einen roten Keks, erscheint ein neues Labyrinth. Doch + 40 Vesper 

biinkt in der Anzeige ein Feld und aus Vorsicht! In diesem Labyrinth sind leeres Labyrinth : 300 Punkte 

dem Lautsprecher ertont das auch heliblaue Felder, die die Geister . + Vesper 

Jagdzeieherf. Solange das Feld passieren konnen, Krumi jedoch vertorenes Leben: - 50 Punkte 

biinkt und das Jagdzeichen ertont, nicht. leeres Feld 1 Vesper 
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1 ' %%% vcvn : Markus Bu.ehl^r *■*+ 

2 ' *** tel * 0781/33778 

3 ' *#* fldresse ! in Erb 29 7600 Offenbur*/F*s**rtb;irh *** 

4 SYMBOL 245,60,126,231,230,252,254,127.62 " *** 

5 SYMBOL 246,60,126,231,231,252,255,127'.62 

6 SYMBOL 247,60,126,231,103,63,127,254,124 

7 SYMBOL. 248,68,126,231,231,63,255,254,124 

? 9=2,4: E0R *~ 249 T0 250: SYMBOL 1,9.119,255, 287,287.255, i Zf,, m ■. 9 ^* 54 : ucvt 
f^4;rpR i*251 TO 252*SYMBOL 1,68,126,255, * 9*54*NEXT 

10 /MBOL 253,68,98,60,24,68, 60,126,255 * 9 e i253 ) 

11 DIM kr*<1,4 >,x< 2 y ,y< 2 >:DEFINT a~z 

12 kr$< 0,1 >=CHR$< 251 > = kr$< 1,1 >»CHr£< 252 > 

13 k r $< 0,2 >=CHR$< 249 > * k r$< 1,2 )**CHRS< 258 ) 

14 k rSK0 ,8 >=OHR$<247 >* kr$<i,3)»CHR$<248 > 

15 k r-*< 8 ,4 )«CHRf 1 < 245 > * k r$< 1,4 >=CHR$< 246 ) 

1 6 5 ^env” 1 : 1 :% % !f:l 47 ?^ < 12 , 1 , 5 , 0 . 5.011 - 2 ; 10 ,- 5 , 3 , 1 , 10 , 0 . 5 .ent 3 , 1 , 20 , 1 . 5 , 1 ,- 20 , 

17 < m Titeibild **7' 

IS BORDER 0 : PAPER 0-INK 0,0-MODE 1-INK 2,0 ■INK 3,0.INK 13,9,11.SPEED INK 8,8>z= 

To PEN t ; PRINT TR'B<18 V 1 Fin Moment bitte 1 " : PEN 2 

20 LOCATE 1,25 i print "Kru.nl" ' 

21 PEN 8 : FOR i»0 TO 8 • FOR k=0 TO 48 

|8 IF TEST<2*k,2*<8-i)>=*2 THEN 2*5-2*PEN z ? LOCATE k+i,i+7 * PRINT CHR$<245 >j ELSE 
88 NEXT k,i 

It H5SJI SHR$< 247 )CHR$( 245 > 8 PC< 2 >CHR*< 247 >CHR*< 245 ) 

J 5 L0CRTE 25* PRINT '* * LOCATE 1,1* PRINT STRINGS 40,32).; . INK 3,1,7* INK 2,7, 

I? rOr^I^} 6 : 1 o?S I ^ T - : NR$< 164 >j" 1985 by Markus Bushier" 

t~, ; LOCATE 8,23 * PRINT "Schui*ri 9 keits 9 rad 11~3> > 11 ; 

sQa:^fiL< INKEY*>* IF S9<1 OR s9>3 THEN 88 EL SF PRINT «Q: i^hPn*F-cq • <-o- 9 *«.a 
2? LOCATE 12,25 * PRINT "TASTE DRUECKEN"*CALL ft-BB 18 *«-.9-dte0 

i 1 ? S'? i IHK - J ' 84 ’ INK. 2, It INK 3, 6 * SPEED INK 18,18 

31 • Mtx SPielfeld aut'bau.en %%% 

1.8 Go|nb 0 142 RDER 12sWIND0W I 20,1,20 5 INK 1,24* INK 8 ,1 * INK 6 ,2*PAPER 5 

34 WINDOW #1,1,20,21,25 * PAPER# 1,9 * PEN #1,5 * n«?#l 

35 PRINT #1= PRINT#!, "Kekse * "USING"####" ;punkt* 

86 PRINT #1*PRINT#1,"VesPer*"USING "####";Z 

i pen ii s ^ prTn ? 1 > M,JSINGtt#### ”^ spEW #*' 5 

39 WINDOW #3,16, 20 ,22,22.PAPER #3,9.INK 7,3■PEN #3,7.PRINT#3,STRING*lebe«,247>, 

41 ^Wf;l^ 2 *i!' PfiPER #2<9’PEN2=9 = CLS#2.INK 15,6,11 

42 JRGD»JR'GD-1 * IF JAGD=@ THEN PEN2«9* PHPER#2<PEN2*C( s #9 

43 IF ,*a.9d>0 THEN SOUND 2,50.10.14.,3 

44 9=3-9 * xk 8 =xk*y k 8 =y k 

45 # ttt STEUERUNG *%% 

46 p0ap:p#BiNKEY**IF P*="" THEN 47 ELSE P*RSC<P«) 
tr, It p ~\l ClR p88240 TH EN r i“l : ko*-l *rk*2*GOTO 52 
Is JE pss * 0 0R ? s241 THEN »*i*2 ! ko=l rk*l * GOTO 52 
4 ^ if P=d OR P»242 THEN ri«4 * ko~- 1 : rk =3•*GOTO 55 

51 papQ^GOTO^E * 243 ™ EN ri * 8 ' ^ 0 =1 * rk =4 * GOTO 55" 

52 yk=yk+kC‘ 

TCSTC >**32r.l6,<25-j.k )*I 6 ^>-0 OR TEST< xk*32-16,<25-sk >*16+8>-6 OR sk>20 OR 
4'S00.10 E 15 GOTO 66 p, * lnkt «“ p «"' !t ®-3 ! G08UB 83.SOUND 

54 GOTO 5? 

55 xk =xk +k o 

56 IF TEST<xk#32-16,C25-yk >*16+8 )»0 OR TEST< vk*32-16,*'25-yk‘^16+A W np vtwa no 

. ^4!J.0 H F4• G 0 T 0 k F 6 ° 8PUNKT£:spUNKTE - 3s GOSUB 33VS0IJND 4 ' 0^ 0R 
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programme_ 

5? IF z~0 THEN z=l* 9f=l ELSE z=0*9f=38 

58 te=TEST<xk*32-16,<25-yk>*16+8> 

59 IF te=i OR <9eist=l AND te=3) THEN Pu.=Pu+I * GOSUB 83 
SO IF te~3 AND 9eist=0 THEN Pu=Pu+l * GOSUB 128 

61 IF te-5 AND ve=0 THEN LOCATE# 1,1,3* PEN #1,13* PR l NT# 1, "Ves-Per 5 0" ; * FOR i-1 T 

0 10 s SOUND 1, 100 , 20 , 0 ,Is NEXT*WHILE SQ<1 >=*132* MEND* SO 

I fND i, 1.00,30, 0 = GOTO 130 

62 IF te=5 THEN GOSUB 129 

63 PEN 3 * LOCATE xk ,y k ■PRINT kr$<z,rk >;•LOCATE xk 0,s k 0 * PRINT" 

64 SOUND 1,0,10,13 ,,,9f 

65 IF x< 1>=xk AND y<1>=yk THEN 99 ELSE IF x<2>=xk AND y<2)=yk. THEN 99 

66 IF x<l>»xk AND y(l >=yk THEN 99 ELSE IF x< 2 >*=xk AND y<2)=*yk THEN 93 

67 * ttt Geister beuesen 

68 IF 9eist«l THEN 9=1 

69 LOCATE x< 9 5, y< 9) = PEN PewK 9 ) * IF P*n9<9>=6 THEN PRINT CHRSK 143 >; ELSE PRINT CHR 
*< 144); 

70 PEN 1, ; V0< 9 }=x< 9 >: y 0 C 0 )»y ( 9 '1 

71 IF <=9< 1©*RND THEN 89 

72 IF m <9 )>yk THEN y< 9 >=y< 9 >~1 

73 IF y< 9 ><yk THEN y< 9 )=*y< 9 HI. 

74 IF x( 9 Kxk THEN x<9>=x<9Hl 

75 IF x< 9)>xk THEN x(. 9 )*x< 9 >-1 

76 IF TEST<x<9 >*32“16, < 25-y< 9 > >*16+3 5=0 THEN 96 

77 91=2/9 * IF RBS< x.< 9 >-x< 91) X2 AND RBS< y< 9 >-y< 91 > )<2 THEN 89 

78 IF x<9X1 THEN x<9?=l ELSE IF x<9»20 THEN x<9>=28 ELSE IF y(9)<l THEN y<9>* 
1 ELSE IF y<9»20 THEN y<9>=28 

79 P er.9< 9 )=TE8T< x< 9 >*32~16, < 25~y < 9 ) ># 16+8 > * IF P eri9< 9 >=4 THEN P e n9< 9 )=5 
8A IF x< 9)=xk AND y<9)=yk THEN 99 

81 PEN 4 t LOCATE x< 9 >, y< 9 >*PR I NT 9eist*« 

82 GOTO 41 

83 •’ %%% finzei9* %%% 

84 Pu - rtk16 =*Pu.ti kt.e?+2 * IF Punkt*?<0 THEN Punkte^O 

85 LOCATE #1,8,2=PRINT #1,USING "####";Punkte 

86 IF Pu>=25? THEN GOSUB 151 

87 RETURN 

88 * ttt tieu.e PL&e-feze su.chein+uebebPruL*f#n *** 

89 y( 9 )=x0< 9 ') ; m f 9 ;i=‘4 PK 9 ') 

90 rn= I NT< RND*4 )+ i 

91 ON rn GOTO 92,93,94,95,9© 

92 y <9 )ay(9 H1 * GOTO 76 

93 y < 9>=y< 9 )- 1 sGOTO 76 

94 x< 9 ')-:■<( 9 )-1 * GOTO 76 

95 x.( 9 9 )+1: GOTO 76 

96 IF TE8T<x.0<9>*32-16,<25-y<9>>*16+8 X>0 THEN X <9 )=xO< 9) : GOTO 76 

97 IF TESTCx( 9 >*32-16, 25~y©< 9 ) >* 16+8 )< >0 THEM y< 9 5=y 0< 9 > * GOTO 76 

98 GOTO 89 

99 •’ *** 2u«-mm’Cis-to*& ttt 

100 IF PEN2=9 OR 9eist=i THEN 101 ELSE 114 

101 LEBEN = LEBEN-1 

102 SOUND 2,76,245,15, .■ 1 8 WHILE SQ<2)*132 

183 LOCATE xk , y k * PEN 4 * PR I NT 9e i S-t-$ • FOR i =8 TO 1 88* NEXT * LOCATE xk, y k * PEN 3«PR I NT 
k r$< z, rk ) * CALL &BD 19 = FOR i =8 TO 188 * NEXT * WEND 
104 LOCATE #3,teben+1,1*PRINT#3.«" 

185 IF LEBENs© THEN 130 

106 PUNKTE=PUNKTE-50 

107 IF PUNKTE<0 THEN PUNKTE=8 

10A LOCATE #1,8,2*PRINT #1,USING"####"; PUNKTE 

1.09 ! = 1 : GOSUB 140* GOSUB 139 : X< 1 >=2 : YC 1 )=2 : LOCATE 2,2*PRINT GEISTSU 

110 IF 9eist=l THEN 112 

1 1 1 I. =2 * GOSUB 139 • * XC 2 >=19* Y( 2 >=19* LOCATE 19,19* PR I NT GEI ST*; 

112 PEN 3 * L OCATE Xk,Yk : PRINT CHR*(245 >: 

113 GOTO 41 

1.14 L= 1 * GOSUB 139* L=2 * GOSUB 139 * LOCATE xk, y k * PEN 3 * PR I NT k r$< z, rk >; 

115 ' ttt Geis.t fres.s<=-r, 

116 x<2>=400*y<2>=250 : IF RND>0 THEN xa>=2*y<l>=2 ELSE X< 1 >=19*y< 1 >=19 

117 P u.'nk t.e=P u/nk te+79 * ve=ve+41 

118 1NK 3,5,21=SOUND 2,588,250, \ 5,,2 * WHILE 8GK 2 >=132 * WEND * INK 3,6 

119 L=l*GOSUB 140*GOSUB 83*GOSUB 129 
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Jetzt gibt es neben dem 1. Gewinn, der uberragenden Qualitat 
der ”ELEPHANT“-Floppy-Disk, noch einen triftigen Grund mehr, 
schnell lhren ’’ELEPHANP-Handler aufzusuchen: ein Puzzle-Spiel, 
das Ihnen einen schonen Extra-Gewinn einbringen kann. Was es zu 
ge'wirinen gibt, steht auf dem fertigen Puzzle! 

Also nichts wie hin zu Ihrem ”ELEPHANT‘‘-Spezialisten. 

ELEPHANT NEVER FORGETS. 

MARCOM Computerzubehor GmbH 

PodbielskistraBe 321,3000 Hannover 51, Tel. (0511) 64 74 20 
Frankreish: Soroclass. 8, Rue Montgolfier 93115, Rosny-Sous-Bois.Tel.: 16 (1) 855-73 -70 
GroBbritannien: Dennison Mfg. Co. ltd., Colonial Way. Watford WD2 4JY. Tel.: 0923 41244.Telex: 923321 
Weiteres Ausland: Dennison International Company. 4006 Erkratti 1. Matthias-Claudius-StraGe 9,Telex: 858 6600 
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programme—_ 

120 AFTER 758,2 GOSUB 123 
1 ? 1 9e i &fc« 1 : i a.9d=1 
1.22 GOTO 41 

123 ** m Rueckkehr %t% 

124 9eis.fc«8:F0R L=1 TO 2: GOSUB 140: NEXT 

125 IF RND<8«5 THEN x< 2>*2*s<2>=2 ELSE xC 2 >19 ■■ s< 2 >=19 

126 IF RBS(xa>-x<2>><*5 HMD RBSCiKl >-y<2>><»5 THEN 125 

127 RETURN 

128 GOSUB 83 : PEM2=15 : PAPER #2,PEN2:CLS #2»JflGD=12 : RETURN 

129 v*=v*-1:LOCATE#1,8,4 * PRINT#1,USING”####" i ve * RETURN 

130 NODE 6 ; INK 0,0:BORDER 8 * PAPER 0 

131 p=p a iik te+ve*2 

132 LOCATE 2,4 i PEN 4‘PRINT" PUNKTE FUSING "#### M .iP 

123 LOCATE 2,18‘PEN 3 : PRINT'* REKORD USING "####".iRE 

134 IF P>RE THEN 135 ELSE LOCATE Z> 16 5 PEN 2 = PRINT" DIFFERENT 5 “-USING "####"jRE 
-P : GOTO 137 

135 LOCATE 2;16‘PEN 13‘PRIHT“ STEIGERUNG*"jUSING "'####" jP-RE 

136 RE*P'GOSUB 161 

137 LOCATE 2,25 = PEN 1 * PRINT "Leerta&te drmeckeri" 

138 WHILE INKEY<47 )»-l * WEND : GOTO 17 

139 LOCATE x<L),y<L>»PEN PenSCD'IF Pen$<L>*6 THEN PRINT CHMK 143 >jELSE PRINT CH 
R$< 144 >: RETURN 

140 IF x<L)=xk AND y<L)=yk AND <Pe-n9<L)=1. OR Per.9< L )=3 > THEN Pu=Pu+l 

141 RETURN 

142 •* ttt SPIEL FELDER ttt 

143 RESTORE 163 : Pu.= 0 « 2 = 8 : xk-18 5 yk*l 1 : Pen 9 < 1 >«5 : Perv3< 2 >=5 ! ve*58 : Pu/nkte-0 ! %< 1 >=2 : x 

C 2 "'=19 : MlT 1 : y«!' 3 t 9=1 i 9<?ist=0 : j^9d=l * £.P =8 

144 FOR Jsl TO 28 

145 READ fit* 

146 FOR ,i,i=l TO 20^.2$=MID$C-i.l$,,i..i,l > 

147 IF R2*="$" OR A2*« ,, X" THEN PEN 9 * PRINT CHR*<143)j 

148. IF a2**"6« THEN T.F RND>8.9? THEM PEN 3 s PRINT CHR*<144>i ELSE PEN 1 * PRINT CHR 
%( 144).; 

149 NEXT JJ,J 
158 RETURN 

151 CLS: p a=0:PUNKTE*PUNKTE+398*VE»VE+41 *GOSUB 129*GOSUB 83 = GOSUB 161 ! IF sP=l THE 
N s.9=s9+3*IF s9>9 THEN *9=9 
1.52 FOR J=1 TO 20 

153 READ Al$ 

154 FOR JJ«1 TO 20!fl2SaMID»CRlSi JJ, 1. ) 

155 IF A2$="$" THEN PEN 8'PRINT CHRSK 143 >;= GOTO 157 

156 IF R2*s ,, 3s M THEN PEN 6 = PRINT CHRSK 143) • 

157 IF A2$="fc" THEN IF RND>8„97 THEN PEN 3 ! PRINT CHR9K144); ELSE PEN 1'PRINT CHR 
*< 144); 

158 NEXT JJ,J 

159 Xk=18*Yk=*i1sxk0=10:yk8«i1:X<1>»2 *Y<1)=2sx<2)=19 : Y< 2)=19*sP=i 

160 Per,9< 1 )=1« p®y>9< 2 )=1: RETURN 

161 RESTORE:FOR i=t TO 4 : READ t,d = SOUND 7, t,d,15 5 NEXT * RETURN 

162 DATA 

163 DATA 

164 DATA 
1.65 DATA 

166 DATA 

167 DATA 

168 DATA 

169 DATA 

170 DATA 

171 DATA 

172 DATA 

173 DATA 

174 DATA 

175 DATA 

176 DATA 

177 DATA 

178 DATA 
1.79 DATA 
180 DATA 
1.81 DATA 
182 DATA 


478,88,379,40,319,40,239,120 
&&&&&&&&&&&&&&&&&&&& 

%&&&&%&&&&&&&%&%: MSA 


% 
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programme 


HAUNTED CASTLE 


Schneider CPC-464 


Sie sind ein Abenteurer und laufen 
durch ein SpukschloB, um Schatze 
einzusammeln. Aber das ist nieht so 
einfach, da die Schatze durch gei- 
sterhafte Wachter und ein fliegendes 
Beil bewacht werden, Zudem ruckt 
die rechte Wand des Schlosses im- 
mer naher auf Sie zu. 

Eine Beruhrung mit der Wand Oder 
einem Wachter sowie dem Beil ware 
todlich. 

Jeder Raum besteht aus zwei Zim- 
mern. Im rechten befindet sich der 
Schatz, der Wachter, die bewegliche 
Wand und zu Beginn des Spiels der 
Abenteurer, 

Im linken sind das Beil und eine Tur, 
um in den nachsten Raum zu gelan- 
gen. 

Zu Beginn des Spiels besitzen Sie 4 
Leben (die Ersatzleben werden unten 
angezeigt). Hat die bewegliche Wand 


den gesamten rechten Raum ausge- 
fuiit, verlieren Sie ein Leben. 

Von den Wachtern konnen Sie nur im 
rechten Zimmer verfolgt werden. Es 
gibt pro Raum aueh nur einen Wach¬ 
ter. 

Manchmal erscheint anstatt eines 
Sehatzes ein Schutzschild. Wenn es 
Ihnen gelingt, ihn aufzunehmen, kon¬ 
nen die Wachter und das Beil Ihnen 
nfchts anhaben. Die Wirkung des 
Schildes erlischt, sobald $ie dery 
Raum verlassen. 

Als weitere Schwiertgkeit haben die^ 
Wachter die Moglichkeit, uber die^ 
Schatze in den beiden Raumen zu 
laufen und diese durch Beruhrung 
unsichtbar werden zu lassen. 

Eine gute Grafik und ein schneiler 
Spielablauf mit verschiedenen 
Schwierigkeitsstufen sorgen fur eine 
groBe Abwechslung und Spannung. 


§&, 


10 REM "Haunted Ca.st.te" 

28 MODE © | 

30 REM TITELBILD 
40 GOSUB 2370 

50 wHa 

m REM 1=LOCATE 1,2«PRINT qw$<LOCftTE 1.'24 = PR1NT i 

70 MOVE 58.250 ! 

80 DRAW 58. 300.15 . 

98 MOVE 80.250=DRAW 80.388 

108 MOVE 51.275 Jh 

110 DRAW 79.275 

128 BORDER 12 = PEN 15‘LOCATE 4.9 =PRINT 1 "RUNTED" 

130 x~305=9*188= r===25 
140 FOR 9*75 TO 280 : DEG 
150 PLOT x+r*COS<9 >.y+r *8INC 9).15 
160 NEXT 9 

178 LOCATE 11.* 15 i PRINT ,, R8TLE H 

180 LOCATE 2.28=PEN 9=PRINT"@ by” =LOCATE 2.22=PRINT "Rainer Krotz" 

190 FOR tt=l TO 10080=NEXT tt 

200 hi=1800 

210 sc=8 

228 sch«20 

230 ss9*0.81 

240 1*3 

250 ENT 1.200.5.1 
260 INK 6.8 
278 MODE 1 

280 WINDOW #1*1*40.21.25=PAPER #1.6=CLS #1 
290 WINDOW #2»1*40.1.20 
380 REM BILDSCHIRMRUFBRU 

310 CLS #2 = PEN 7 = ux« I NT< RNDC i 1 @ )+2»ua * I NT< RND< 1 >#9+10 > 

328 LOCATE u.x-l.l= PRINT CHRSK 233 ) * FOR uw*ux TO 48 
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programme 


330 LOCATE uwjU&h PRINT CHR9K233) 

340 LOCATE uw^i*PRINT CHR*<233> 

350 NEXT wa ^ 

360 FOR Iu*2 TO u» 17^^ 

370 LOCATE u.x-1, lw s PRINT CHR*<233>*NEXT 1 u f 1/ »■ 

330 LOCATE ux~l,uy ‘PRINT CHRSK233> # M IWlin '»■ 

390 fx«48 I s c p WQefinil 

400 FOR fy*2 TO lw-2 # Sch £ Un kte #Cf 't/ft/K / 

410 LOCATE fx,fy - PRINT CHR$<28?> # $sn Sc hnelfini ■ I 

420 NEXT f y / $ChS 9kei t tf e , M/ I 

430 sch=sch-l / SJf, $y p . e %%/ , / 

440 IF sch<3 THEN sch=2@ / % nJ o° S %? e r/l , / 

450 tx-iix+3 / ^ ^ / 

460 PEN 1: LOCATE tx, 3'PR I NT CHR$< 232 > Po$//; n ' *7^C/?/o r | 

470 PEN 7 w / 

480 f9*0 fa I 

490 5.z= INK RND< 1 >*8+4 > i '' ' f 

500 swx=ix+S2 f 

510 FOR tw»2 TO u.y-1 .. 

520 LOCATE swx,tw*PRINT CHR*<133>*NEXT tw 
580 st»UM-INT<RND<l>*15)!lF st<2 THEN St*2 
540 IF *.t>=u.y THEN stnuy-1 
550 LOCATE 5i,ix.ist'PRINT" “ 

560 PEN 1 

570 LOCATE 2.* 23'PRINT "SCORE'";sc 
530 bx=swx-l : by=2 
590 b*==CHR3K215> 

600 LOCATE 17..23 'PRINT "HIGHSCORE' " .shi 

610 LOCATE 36,23'PRINT CHR*<249>;1 

620 PEN 1 

630 wbt«i 

640 SS9-SS9+0.01 

650 LOCATE 13,19 = PRINT"HAUNTED CASTLE“ 

660 sst=i's9=0 
670 REM SCHRTZ 

680 •-INT<RND<1>*30+1>«ON e GOSUB 1570,157©,1570,1570,1570,1290,1290,1290,1450,1 
450,1450,1540,1540,1540,1260,1260,1320,1410,1410, 129 
0,1358,1350,ISIS,1518,1480,I486,1488,1388,1388,1388 
690 «.x=swx+1NT<RND<1 >*3+1) 

780 sy*INKRND<1)*17+2 > 

710 IF sy >=u.y THEN sy=u.y~l 
720 LOCATE sx,«.y 'PRINT s$ 

738 REM WRECHTER 

748 9=INKRNIX 1>*42+1?'ON 9 GOSUB 1608,1680,1608,1676,1679,1640,1640,1640,1700,1 
790,1798,1798,1888,1880,1940,1948,1688,1648,2838,203 

0,2860,2060,2090,2890,1730,1730,2128,212©,1.978,1978,1970,2008,2800,1768,1768,176 

0,1828,1828,1858,1850,1918,1916,1918 

758 9x=:«,i.ix+4 

768 9y=INT<RNDC1>*16+2) 

770 IF 9y >=u.y THEN 9y=u.y-l 
780 LOCATE 9x,9y'PRINT 9S 

790 bw=bw+ss9 
886 a*aCHR*C251> 

818 ai$=CHR*<25I> 

828 a2*«CHR*<250> 

338 x*fx-2 
840 y=3 . 

858 INK 14,11 

868 LOCATE x,y'PRINT.a* 

878 wbt-wbt+l'IF wbt«sch THEN GOSUB 2150 
880 LOCATE 9x,9y'PRINT" " 

890 IF 9x>x THEN 9x=9x~bw 
90S IF 9x<x THEN 9x=9x+bw 
910 IF 9y<y THEN 9y=9y+b«,< 

920 IF 9y>y THEN 9y*9y-bw 

938 IF 9x< =swx+0,5 THEN 9x=9x+U5 

948 PEN 14 

950 LOCATE 9x,9y'PRINT 9$ 

968 PEN 1 



oroaramme 



• 


S>?0 

IF 9x<=x+l RND 9x>=x~1 THEN 990 



980 GOTO 1000 



990 

IF £».<**» +i RND 9y>=y-l RND f9=8 THEN 2250 



1000 

LOCATE fax,by * PRINT" " 



1010 

by*b«+l 



1090 

IF by=u.y THEN by=2 



1030 

LOCRTE bx,by « PRINT b* 



1040 

IF x=bx RND y*b» RND f9=0 THEN 2250 



1050 

REM JOYSTICKflBFRHGE UHD BEI4EGUHC 



1060 

IF J0Y< 0 >“4 THEN LOCRTE x,y * PRINT" "*xsx-l *a**al*» 

GOTO 

1100 

1070 

IF JQYC0>=8 THEM LOCRTE x,y : PRINT" « *v*v+i ■■**=* 2 $* 

GOTO 

1108 

i S80 

IF JOY<0 >-l THEN LOCRTE x,y«PRINT" "»y»y-i?GOTO 11 m 


1090 

IF JOY< 0 )-2 THEN LOCRTE x , y «PR I NT 111 “ s y =y +1 s GOTO 11 m 


1100 

IF x«swx RND yOst THEN 2250 



1110 

IF x=fx THEN 2250 



1190 

IF y~u.y THEN 2250 



1130 

IF y=l THEN 2250 



1140 

IF x=u.x-l THEN 2250 



1150 

IF x-fcx RND y=3 THEN 1220 



me 

IF x*sx RND ysftgy RND sst=l THEN 118© 



1170 

GOTO 1200 



1180 

sc«sc+sz « SOUND 1,319,205 SOUND 1,284,30 • SOUND 1,213 

, 40 : sst=0.LOCRTE 8 # 23 > PR1 

NT sc 



1190 

IF £9*1 THEN f9=1 



1300 

IF x=bx RND y=by RND f9=8 THEN 2250 



1310 

GOTO 860 



1280 

£C=£C+1000 



1230 

SOUND 2,478,30 s SOUND 2,319,40*SOUND 2,426,30 



1240 

GOTO 318 



1250 

REN SCHHTZFRT UHD WERT 



\?m 

£$=CHRi(202 > 

1648 

93»CHR#(212) 

1270 

sz«5000 

1658 

bw*0„2 

1280 

RETURN 

1660 

RETURN 

! 1290 

s.*=CHR*<203> 

1678 

9$=CHR$< 218? 

1300 

£2=2000 

1638 

bw=0,3 

1310 

RETURN 

1690 

RETURN 

1320 

s*sCHR*'C201) 

1700 

fl*»CHRfC2I3> 

133© 

£2= 10008 

1710 

b«,i=0.4 

1340 

RETURN 

1728 

RETURN 

1350 

s»«CHR*<208> 

1738 

S#sCHR*t244 ? 

1360 

£•2=5800 

1748 

bw=8.2 

1370 

RETURN 

1750 

RETURN 

1380 

ft**CHR« 209? 

1768 

«*-CHR*245> 

139© 

sz=2000 

1770 

bw=0u 3 

j 1400 

RETURN 

1788 

RETURN 

1410 

s#®CHR#<204 > 

1798 

9*»CHR*C2I4) 

1420 

£2=1000 

1800 

bw=0.3 

143© 

£-9=1 

1818 

RETURN 

1440 

RETURN 

1828 

9$=CHR$C246 ? 

1.450 

s*=CHR$<285> 

1838 

bw«0.1 

1460 

£2=3000 

1840 

RETURN 

1470 

RETURN 

1858 

9$=CHR$<24?> 

. 1480 

s$ ss CHR$< 225 ) 

I860 

bw«0;4 

1490 

£2=3000 

1870 

RETURN 

J.5S0 

RETURN 

1880 

9$=CHR$< 216? 

1510 

U‘*CHR« 226) 

1890 

bM=0«2 

1529 

£2=4000 

1900 

RETURN 

1530 

RETURN 

1910 

9*eCHR*<248 ? 

1548 

s.$=CHR$<206? 

1920 

bw=0.2 

1550 

£2=4000 

1930 

RETURN 

1560 

RETURN 

1948 

9$=CHR$< 218 > 

1570 

s#*CHR*<217> 

1958 

bi,i=0.2 

158© 

£2=1000 

I960 

RETURN 

159© 

RETURN 

1978 

9$=CHRf<242) 

1600 

$*«CHR*<211> 

1980 

bw=0« 3 

1610 

bw=8.1 

1990 

RETURN 

1620 

RETURN 

200© 

9$=CHR$< 243 ? 

1630 

REN GEISTERflRT UND SCHNELLIGKEIT 

2010 

bw*0.2 
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2828 RETURN 
9038 $*»CHR*<219> 

2848 bw= 8 .1 
2850 RETURN 
2060 §8*CHR$<228 > 

2870 bw=0,3 
2880 RETURN 
2890 9*'aCHR#< 248 > 

2100 bw-0.4 
2110 RETURN 
2120 S8*CHR*'<241> 

2138 by=0»3 
2140 RETURN 
2150 fx*fx~t 
21 m PEN 7 

2170 SOUND 3*1012,30 
2188 FOR fy=2 TO tw-2 
2198 L0C8TE fx,fy * PRINT CHR*C207> 

2280 NEXT fy 

2218 IF fx*swx+l THEN 2250 
9288 

2230 PEN 1 
2240 RETURN 

2250 LOCATE x,y=FRINT“4" 

2260 SOUND 5,478,210,7,0,1 
9270 FOR i»I TO 1000*NEXT i 
8288 1-1-1-IF 1>~0 THEN 310 
2298 PEN 1*LOCATE 15,10»PRINT "VXA G 
2388 IF sc<hi THEN 2330 
9310 hi»se«LOCATE 27,23 * PRINT hi 
2920 SOUND 5,478.-40-SOUND 5,379,40* 

SOUND 5,239,80 
9338 LOCATE 15,17*PRINT"PRESS FIRE TO PLAY !!!" 
2340 IF JOY?0)*16 THEN 210 
2350 GOTO 2340 
2360 REM 2EICHEN 
2370 SYMBOL RFTER 200 
2388 SYMBOL 201,0,0,16,40,84,170,0,0 
9398 SYMBOL 202,0,0,0,146,146,94,124,124 
2480 SYMBOL 203,0,56,16,40,63,48,16 
2410 SYMBOL 204,0,124,108,68,108,124,56,16 
2420 SYMBOL 205,16,40,63,68,40,16,56,16 , 

2430 SYMBOL 206,214,84,56,16,16,16,16,16 
2440 SYMBOL 208,48,24,12,38,33,255,255,255 
2458 SYMBOL 209,254,124,56,16,16,16,56 
,9460 SYMBOL 225,0,68,146> 186,84,40,214,124 
2470 SYMBOL 226,56,84,186,238,186,84,56 
2480 SYMBOL 217,16,16,56,108,108,56,16,16 
2490 SYMBOL 210,20,8,62,85,28,20,20,54 
2508 SYMBOL 211,8,26,75,210,74,106,42,62 
2518 SYMBOL 212,28,62,42,42,62,126,254,170 
2520 SYMBOL 213,124,254,146,146,238,84,40 
2530 SYMBOL 214,€6,36,24,24,219,126,66 
9540 SYMBOL 215,2,6,30,14,10,8,8,8 
2550 SYMBOL 216,4,18,16,172,73,84,173,255 
2560 SYMBOL 213,9,66,36,153,126,24,38,64 
2570 SYMBOL 219,16,56,42,58,124,124,56,108 
9588 SYMBOL 220,65,65,34,62,42,54,34,28 
2590 SYMBOL 232,127,65,65,81,65,65,65,65 
2698 SYMBOL. 240, ?, 29,116,288,128,129,149,255 
2610 SYMRGl 241-0.20.127,93.93-20.2©.54 
2620 SYMBOL 242,0,17,142,132,124,74,145 
2630 SYMBOL 243,34,28,20,28,127,62,8,20 
9640 SYMBOL 244.8-28,42,119,34 - 28,20,54 
2650 SYMBOL 245,96,144,38,24,69,98,129,182 
2668 SYMBOL 246,56,56,16,56,84,146,162,148 
2670 SYMBOL 247,16,57,17,125,187,57,69,199 
2680 SYMBOL 248.255,153,255,195,189,255,36,102 
2690 RETURN * 



RME OVER VXt? 

SOUND 5,478,40*SOUND 5,284,40 ; SOUND 5,478,40- 



Steilen Sie sich vor, Sie haben mil 
viel Muhe einige Tasten Ihres CPC 
neu deftniert und wollen das nun 
wieder ruckgangig machen. Eine 
Moglichkeit ware naturlich, die vor- 
herige Prozedur in umgekehrter Rei- 
henfolge zu wiederholen, aber ratio- 
neifer ist CALL &BB00. Er setzt alte 
Tasten zuruck und aueh die alien 
Repeat-Werte werden wieder einge- 
setzt. 

Aber wie ist es, wenn Sie nur die 
Funktionstasten zurueksetzen woi- 
len? Auch mit oberem Call hatten Sie 
dann noeh vie! Arbeit. Hier hilft CALL 
&BB03. Er leert auch den Tastatur- 
buffer. Das ist extrem nutziich, da die 
Tastaturtraghert abgebaut wird und 
Inputs besser eingesetzt werden kon- 
nen. 

Beide Calls sperren auch die Esca¬ 
pe-Taste. Das ist ein schoner Pro- 
grammschutz, wahrend des Pro- 
grammierens jedoch eminent gefahr- 
lich. Man sollte mit dem Sperren von 
Escape und damit der Breakfunktion 
sehr vorsichtig seln. Wollen Sie nur 
Break sperren, hilft CALL &BB48. 
Was aber ist zu tun, will man obigen 
Call in seinem Programm verwenden, 
nieht aber in standiger Angst vor 
einer Endlosschleife leben, wahrend 
man noch entwickelt? Hier hilft CALL 
&BB45. ESC wird wieder aktiviert 
und Sie konnen beruhigt weiterarbei- 
ten. 

Es ist erfreulich, ESC ausschalten zu 
konnen, doch kann man das Pro¬ 
gramm nach wie vor mit 
ESC + SHIFT+CTRL „rauswer- 
fen“. Aber auch das kann man unter- 
binden. POKE &BDEE, 201 wirkt. 
201 ist die Zahi, die in Assembler - 
Return - bedeutet. Die Abfrage, ob 
die drei Tasten zusammen gedruckt 
wurden, wird unterlassen. 


Um diesen Zustand wieder aufzuhe- 
ben, gibt man fofgenden Befehl ein: 
POKE &BDEE, 195. Die Abfrage 
findet wieder statt. 

Besonders haufig kommt es vor, daft 
der Anwender eine Taste drucken 
soil, um im Programm fortzufahren. 
Was ist zu tun? Das Basic sehafft 
diverse Moglichkeiten, am sinnvoll- 
sten erscheint jedoch ein kurzer Call. 

Schneider- 

Computer- 

Software 

Die qualitativ hochwertige Software 
nutzt die Vorteile, die sich aus den 
hervorragenden technischen Merk- 
malen des „CPC464“ ergeben. Und 
die „$peed-Load“-Eigenschaft ge- 
stattet es, auch umfangreiche Pro¬ 
gramme sehr schnell zu laden. 
Schneider Software bietet eine breite 
Palette von Spezialprogrammen $o- 
wieeine Reihevon Lernprogrammen, 
Programmen aus dem kaufmanni- : 
schen Bereich und naturlich die be- 
sten der bekannten Computerspieie. 
Die Lernprogramme bringen sehon 
den Jungsten viel SpaB, machen das 
Lernen interessanter und fuhren so 
schnell zum gewOnschten Erfoig. Die | 
Computerprogramme Sind an-! 
spruchsvoll, unterhaltsam und votlerj 
Farben. Die ausgezeichneten Klapg- 
und Graphikmoglichkeiten des 
„CPC464“ kommen dabei voll zur 
Geltung. Die kaufmannischen Pro¬ 
gramme nutzen die 80-Zeichen/Zeile 
des professionellen Bildschirmes und I 
die machtige Kapazitat, Daten zu ver- i 
arbeiten und zu verwalten. 


Sowohl CALL &BB18 als auch 
CALL &BB06 helfen und nehmen 
auch ein Zeichen aus dem Tastatur- 
buffer. 

Besonders verwirrend sind die extrem 
guten Farbeffekte des Schneiders. 
Sie zu nutzen ist gelegentlich so 
schwierig, daB man sich unversehens 
in blauer Schrift auf blauem Grund 
findet. Nun kann man langwierig im 
Dunklen tappen und Inks modifizie- 
ren Oder man kennt fofgenden Call, 
der die Anfangswerte setzt: CALL 
&BC02. Dieser Call setzt auch die 
Blinkgeschwindigkeit auf den Aus- 
gangswert. 

Normalerweise kann der Datacorder 
nur uber Lade- und Speicherbefehle 
aktiviert werden. Nun haben Sie die 
Chance, eszu andern. CALL&BC6E 
schaltet ihn an und CALL &BC71 
schaitet ihn wieder aus. 

Die Soundmoglichkeiten des CPC 
464 sind enorm. Wenn Sie jedoch ein 
Lied, das der Computer gerade spieit, 
unterbrechen, spieit er die Tone, die 
noch in der Warteschiange sind, zu 
Ende. Das kann argerlich sein, wenn 
man im Programm zu einem be- 
stimmten Zeitpunkt den Sound an- 
dern will. Setzen Sie einfach CALL 
&BCA7 und es herrscht Ruhe. 

Es kann naturlich auch vorkommen, 
daB Sie nur eine Ruhepause brau- 
chen, danach aber mit derselben Me- 
lodie fortgefahren werden soli. Setzt 
man nun den ebengenannten Call, 
kommt es zu einer haBlichen Lucke 
im Mefodieverlauf. Benutzt man je¬ 
doch CALL &BCB6 zur Pausener- 
zeugung, so kann man nach der Un~ 
terbrechung iuckenlos mit CALL 
&BCB9 fortfahren. Viel SpaB und 
effizientes Programmieren wunschen 
Ihnen nun Marcus Schneider und 
Stephan Schulz. 
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Schneider CPC-464 

Ziel dieses Spieles ist es, Q-Bert Liber 
die Wurfelpyramide zu steuern und dabei die Eier 
der Schlangen einzusammeln. 

Dabei muB Q-Bert jedoch darauf 
achten, daB er nicht mit den Schlan¬ 
gen zusammentrifft, die die Verfol- 
gung von der Spielfigur ubernommen 
haben. Das Programm besteht aus 
verschiedenen Spiel-Levels, in Level 
1-2 gibt es nur eine Schlange die Sie 
verfolgt, ab Level 3 sind es bereits 
zwei. Als weitere Schwierigkeit legen 
in diesem Level die Schlangen auch 
hin und wieder ein Ei dazu Oder 
nehmen eines wieder weg. Wer es 
trotzdem schafft alfe Schwierigkeits- 
stufen zu uberwinden, der dart sich 
vielleicht in die „HALL OF FAME" 
eintragen. 

Die Steuerung erfolgt uber die Tasten 
Y, U, H und J. Sie haben aber auch 
die Moglichkeit einen Kempston 
Joystick zu benutzen. 


nn - Schleifenzahler beim Eingeben der MC-Routine (Zeile 120) 
vv » Gelesener Wert aus DATA-Zeile 110 
t =s Zeitschleifenzahler 

a,fo,c,d,e und f = Variablen im Zusammenhang mit Bildschirmgrafik 

fl = Zahl der Eier, die eingesammelt werden mussen 

lev =s Level 

liv = Zahl der Leben 

i = Joystick-abfrage (Wert) 

pox =s X~Koordinate v. Q-BERT 

poy = Y-Koordinate v. Q-BERT 

bon = Bonus 

sc = Score 

s = Index v. versch. Arrays 
u - Sound-Frequens (Zeile 565) 
hall as Index v. versch. Arrays 
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tim = Wiederholungsschleifenzahler 

tin = Farbwert in Zeile 765 

yl - ink: 4 

y2 - ink 5 

y3 - ink 6 

y4 = ink 8 

y5 = ink 7 

2 a Index v. Array (Zeile 915) 
le = Lange cies eingegebenen Naraens 
v = Index v. Array (Zeile 1035) 

ti ~ Zeitschleifenzahler 


r w . . 


(Zeile 1010) 


Stringvariable: 

1$ = inkey$ 

nam$ = eingegebener Name 

inpu$ - inkey$ 

Numerische Arrays: 



hsc (6) 
o (n) 
sx (n) 
sy (n) 


= 6 hochste Scores 

~ Testvariable» 1» wenn auf aktueller Position ein Ei liegt 
- X-Koordinate v. Schlange N 
= Y-Koordinate v, Schlange N 


.hardware, 


GP-500CPC: Ein speziell fiir den 
Computer Schneider CPC-464 
entwickelter 50-Zeichen/Sek.-Drucker 


Fans des 

Schneider CPC 464 


durch leicht zugangliche D1 P-Schal- mogen ein wenig enttauscht gewesen 
ter von auBen wahlbar. Der Drucker sein, daB das SYBEX-Buch Schnei- 
druckt auf Standard-EDV-Papier bis der CPC 464: Mein erstes BASIC 


Der G P-500CPC ist problemlos fiber 
das mitgelieferte Kabel anschlieBbar. 
Bei einer Matrix-Konfiguration von 
5x7 Punkten werden Commodore- 
Biockgrafik bei bis zu 80 Zeichen- 
/Zeile dargestellt, Hochauflosende 
Grafik durch Punktadressierung mit 
bis zu 480 Punkten/Zeiie kann eigen- 
definiert werden. Zwei verschiedene 
Zeilenvorschube von 6 Zeilen/Zoii 
und 9 Zeilen/Zoli bei Vorschubge- 
schwindigkeiten von 10 Zeilen/$ek. 
und 15 Zeilen/Sek. sind wahlbar, 
alphanumerische Zeichen sind in 
NormafgroBe Oder in doppelter Breite 
ausdruckbar. 8 verschiedene, lander- 
spezifische Zeichensatze sowie Wa- 
genrucklauf und Zeilenvorschub sind 


zum maximaien Format DIN A4. Der 
Papiertransport erfoigt fiber Stachei- 
rad durch Schrittmotor. 


GP-700CPC 


Bei weitgehend technischen Daten ist 
dieser Drucker fiber ein zum Liefer- 
umfang gehorendes Verbsndungska- 
bei direkt an den Computer Schnei¬ 
der CPC-464 anschlieBbar. 


Programm noch nicht auf dem 
Weihnachts-Gabentisch zu finden 
war. Wir wollten halt unserer Verlags- 
Philosophie treu bleiben: Produkte 
herauszubringen, die wirklich voll 
ausgereift sind und den Anwender 
nicht im Stich iassen, wenn es darauf 
ankommt - selbst, wenn es ma! ein 
biBchen langer als geplant dauert. 
Die Weiterentwicklung von Rodnay 
Zaks* „Mein erstes BASIC Pro- 
gramm“ fiir den leistungsfahigen 
Colour Personal Computer von 
Schneider ist ab Februar fur DM 
32 - erhaltlich. 
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cr (n) - Testvariable, 1, wenn 2usammenstoB v. Q-BERT mit Schlange 

_ N erfolgt ist 

String-Arrays; 

hi$(6,16) = Namen der 6 hasten Spieler 


0„KIESSLING 



10 rem / 

15 REM * * / 

20 REM * Q -BE R T * / 

25 REM % % / 

30 REM * <C) FEB *'85 % / 

35 REM % % / 

40 REM * BY % 

45 REM t :* / 

50 REM * G„KIESSLING * / 

55 REM * % . \ 

m rem % max leeser str. s % / 

65 REM % % 1 -_ 

70 REM * * 

75 REM * % . 

m REM 

85 PRINT CHR«<23)j"0 m l*BORDER 6 DRAPER 8* INK 0,0*INK 4,4*INK 5,15'INK 6,24*MODE 0 
90 *' 

05 •’ HI- S C 0 RE L0E8CHE H 
100 •* 

105 ci ERR ! SYMBOL AFTER i90*GOSUB 1945*DIM HSCX6> = DIM HMK6,16>»DIM 0<2>*DIM SX<2 
> : DIM SY( 2 > ■ DIM CR< 2 > : KEY 138.. " , " *KEY 139, "MODE 2 = PE 
N 1 *LIST"+CHRS< 13 >=GOSUB 880 

110 DATA 33,6,192,17,0,64,1,0,64,237,176,201,33,8,64,17,0,192,1,0,64,237,176,201 
115 RESTORE 110 

120 FOR NN-33000 TO 33623 ! READ VV = POKE NN,W* NEXT* GOSUB 175 : CALL 33008 
125 ' 

ISO ' TITEL 
135 ' 

140 MODE S=BORDER 0 = PAPER 8 =INK 0,0*INK 1,15*INK 2,0 s INK 3,15*INK 4,1 * INK 5,2 * IN 
K 6,11*INK 7,7*INK 8,24=INK 9,2,24*INK 10,16*INK 11, 

23 

145 LOCATE 8,5*PEN 9*PRINT "0-BERT" : LOCATE 5,10*PEN 10*PRINT "<C> FEB 1985"*PEN; 
11 : LOCATE 8,15 = PRINT “O.M.K."«PEN 1 * FOR T-9 TO 4000 * 

NEXT T = L$=="" 

150 L*®INKEY**IF L$®"“ THEN 158 

155 SC-0:LIV=7*0<1 >« 1 *OC2>=1 *BON-3880=LEV®1 *CLS* CALL 33012 * GOTO 240 
160 *' 

165 ' B I L D A U FBRU 
170 *' 

175 CLS 

ISO FOR R-4 TO 0 STEP -l*FOR B®0 TO R*2 STEP 2 
185 FOR C*0 TO 32 STEP 2 
190 PLOT 64*<B+<4-fl> ?,328-<64*R+C? 

195 DRRWR 64,-32,4*DRHWR 64,32,5 
200 NEXT 

905 E*0«F®1*FOR D®0 TO 128 = PLOT 64*< &+< 4-fi>>+D,328-<64*A+t:>+36-<E/2>,6*DRRWR 8,E 
,6 : E-E+F =IF E>64 THEN F«-F 

219 NEXT = MOVE 64*< B+< 4-A) HD-80,320-( 64*R+C >+32-( E/2 )+8 = PR I NT CHRSK 23 > > " 1" ; = TAG = 
PRINT "Ci" j *TRGOFF = PRINT CHR3K23 >.; "0" 

215 NEXT * NEXT = PEN 7 = LOCATE 1,1= PRINT " SCORE *"= LOCATE 15,1*PRINT "HI-SC *“* LOCATE 
1.4=PEN 6=PRINT "LIVES*"«LOCATE 15,4=PRINT "LEVEL*" 

220 RETURN 
225 *• 

230 *' GRUNDPOSITIONE N 
235 J 

248 PAPER 0 = PRINT CHRSK 23 > >" 0" ; =CR<2>*0 = Q <,1 )® 1 *0< 2)®8+<1 AND LEV>2 > * POX®10 = POY®1 
3 :SXC 1>»2 = SX<2 >®8 = SY(1)®21 * SYC2>®0 = FL*15 


Compute mrh 



programme 


745 IF LEV>2 THEN 8X<2)»18:SY<2)=21 

250 PAPER 6 • PEN 7 ; LOCATE 18,13 * PR I NT CHP$< 191 >; CHR*C 19£ > 

nftTE'li?sfpRINT 4 LEy?WERT 193) ' CHR#< 194)1 PAPER 0 : PEN 6:L0CRTE l.S-PRINT LIV-UO 
f 1' 9<y^ ® : L0CflTE 2 • 2 i • PR I NT CHR*< 1.95 >; CHR$C 1 96 ) • LOCATE 2,22 = PR IHT CHR*< 1 9? >: CHR* 

alrMssase^pnPEp'^PEN i 1 ‘ PRIHT CHR$< 195xCHR#< 196 >' L0,::flTE 18 • 22 • PRIHT chr* 

270 •' 

275 H A U P T T E I L 
2P0 ‘ s 

785 El 5 I=JOY<0)5IF 1=0 AND IMKEY*="" THEN 460 

V?45WV)' 5 flWD INKEY<43)ss0>+<6 RHD INKEY<44>»0)+<9 AND INKEYC 42 >0 H< 10 AND l NKE 
295 •' 

300 ' Q - B £ R T LOESCHEN 
305 ' 

:^10 PAPER ^LOCATE POX,POY : PRINT CHR«< 128>jCHR*< 129>«LOCATE POX..POY+1 ! PRINT CHR* 
v 128 > i CHR*C 128 > 

315 PAPER 8 *BQN=B0H~< 100 RHD BON>99 >«SOUND 4 - 100 -10 
320 PEN 5 = LOCATE 1,2-PRINT SC : LOCATE 14~2 : PRINT HSCC 1> 

830 "JOY-STICK R B F R fi G E 
335 * 

340 •' Q - B E R T BEWEGEN 
345 " 

350 IF 1=5 OR 1=6 THEN P0X=PQX-2 
355 IF 1=9 OR I=l@ THEN POH=POX+2 
360 IF 1=5 OR 1=9 THEN PQY*P0Y-4 
365 IF 1=6 OR 1=10 THEN P0Y=P0Y+4 
370 IF SXC1>=POX AND SY<I>=POY THEN 625 

330 ' 0 - B E R T V 0 N D F P 

335 •* ’ ' 

890 P Y R Ft II 1 D E 
395 " 

400 •* G ESP R U N GEN ? *? ? 

405 ' 

410 IF P0SO19 OR POX<2 OR P0Y>22 OR TE8K -32+32*P0X,400-PQY*16)-0 THEM 625 

420 ' SCORE ERHOEHEN 

475 ' 

SIJE, Jf 400-POYT16 >=8 OR TESTC *-16+32*PQX# 400-POY#16 >=4 THEN SC*SC 

’TcJ^LtV+t 10 HMD L.E. v ^0 ) ; FL.^FL* - *’ 1 

435 IF FL=2 THEN 805 
440 •* 

445 * Q-B'ERT DR U C K E N 
450 " 

455 PAPER 6 : PEN 7 • LOCATE POX.. POY = PR I NT CHR*< 191)CHR.* 1 ' 192 > : L OCRTE POX . PO Y+1 «PR IN 
T CHR*<193)jCHR*<l94>«PAPER 0«PEN 1 ' Uf 1 ™ in 

460 PAPER 6 -PEN 7=LOCATE 2,1*PAPER 8=PRINT “SC";*PEN 6 ! PAPER 6 
465 * 

470 "SCHLANGE L 0 E S C H E N 
475 * 

4 m FOR S=1 TO 1+a AND LEV >2) 

4B5 LOCATE SXC S >, SYC S > = PR I NT CHR$( 128 ); CHR*C 128 > ■ LOCATE SXC 8 >. W 9 H1 : PR I NT CHR* 
138 >:> CHR*C 128 ) 

490 IF a<S>*0 THEN 500 

; : TflG! m/E " 16+32*SX< S >, 407-SYC S >*16: REN 0 ! PAPER 0 = PRINT “ 
0";-TRGOFF:PRIHT CHR*<23);"O";:GOTO 500 
500 PAPER O * PEN 1 1 OCS)=0 
505 •* 

510 * SCHLfi'NGEN BEHEGE N 

515 ' 

520 SOUND 4,200,10 

525 IF SXC8>=2 THEN SXCS)=4 ! SYC 8 )=17:GOTO 565 
530 IF SXCS)«18 THEN SXC 8 >= 16 >SYCS)«17 = GOTO 565 

535 IF SYC S >=5 THEN SYC S)=9 *SXC S)=SXCS>+2-C4 AND RND<1>>0,5>•GOTO 565 
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540 1F SYCS>=21 THEN SYC8)» 17 • 8KC8)»8X<8>+2~C4 RND RHDC1>>8.5>*GOTO 565 
545 IF TFSTC C SX< S >*3? 1-90,400-SYC 3 >*16+15 )*0 THEN SXC S >“SXC 8 >+2 • SYC 8 >=SY< S >+4-< 8 
RND RND<1> >0.5> = GOTO 565 

550 TF TERTf < RXCR>*3?>+160,400-SYCS >*16+15>=8 THEN SXC8)=SX<S>-2 : SY<S)«SY<8>+4-C 
8 RND EHDC1>>0.5 > : GOTO 565 

555 SXCS>«8X<S>-2+<4 RND RHPC1>>8.5> = SYC8>~8YCS>+4-<8 RND RHDC1>>0.5> 

560 REM IF SXC3K2 OR SXC8>>18 OR SVC 3 >>21 OR TESTC<SXC8>*32>-32,400-SYCS>*16+15 
>~Q THEN SXC S >“10 : 8YC 8 >-5 

565 IF TESTC -*t6+32*SXC S >, 400-3YC S >*16 >~0 OR TESTC -16+32*SXC 3 >.■ 400-SYC S >* 16 >*4 TH 
EN FOR U=50 TO 100 STEP 5 :SOUND 1, LG 1=NEXT*DCS>~1 
570 •' 

575 •' S C H t R H G E N D R U C K E N 
580 ' 

585 PRPER 6 sPEN *8 = LOCATE SXCS>,SYC S> = PRINT CHR$C195 >•CHR*<196 > : LOCATE SX<3 >,SVC S 
>+1:PRINT CHRSC197 >;CHRSC198 > 

598 IF < SXC S > S PQX AND SYC 3 >=POY > THEN CR<S>«1 ELSE CRCS5-0 
595 NEXT 

em if sx< i >»sx< 2 > and syc 1 >*sy< 2 > then oc 1 >~i •• o< 2 >«i 

605 IF CRCl>-0 PHD CRC2>~6 THEN 285 
610 * 

615 ' LEBEN RBZ1EHE N 
670 * 

625 DI * LIV*LIV-1 5 FOR T*S TO 2500 ! NEXT T 
630 ' 

635 •’ p V RflHIDE MIT 0 ' 8 
640 1 

645 •* F U E L L E N 
650 ' 

655 PAPER 6 * FOR FM5 TO 1 STEP -l*FOR B~2 TO R*4 STEP 4 
660 LOCATE B+2*<5-R>,25-4*C6-R > = PRINT CHR$C128 >;CHR $<\ 28 > 

665 LOCATE B+2*C5-A >,26~4*C 6-fi> = PRINT CHR$C123 >;CHR$C128 > 

670, LOCATE 1.9 = PRINT CHR*C 23 >} " 1 "; * MOVE < B+2*C 5-R > >*32-16.. < 400~< 25-4*< 6-R > >*16 >+ 
8sTAG«PEN 0 = PAPER 6* PRINT "O" ? J TRGOFF : PRINT CHRW23) 

" 0 " ; 

675 NEXT BN NEXT A : PAPER 0*FL»15. 


6S0 * 

685 ' W E N N L. I V = 8 , D A N N 
690 •' 

695 ' SPIEL BEE N D E N 
700 * 

705 IF LIV>S THEN 240 

710 PRPER 0: CL5; LOCATE 6,12:REN 9’PRINT "‘GAME OVER” * FOR N*1 TO 6000: NEXT* IF SC< 
-HSCC 5 > THEN 740 ELSE 950 
715 •* 

720 ' NALL OF FAME 
725 * 

730 ' 7. E I G E N 

740 PAPER 0 = MODE 1 

745 PEN 2 = LOCATE 9,1= PRINT ”H A L L OF FAME" 

750 FOR HALL-1 TO 5 : LOCATE 8,2+2*HRUL* PRINT H8CCHALL) ! LOCATE 17,2+2*HALL ?PRINT H 
I $C HALL.«16 > : NEXT 
755 TIM-0 

760 FOR TIM-0 TO 4 

765 FOR TIN-1 TO 26 ! INK. 2.* TIN 8 FOR TI“0 TO 200 * NEXT‘NEXT 
770 NEXT 
77 5 GOTO 140 
780 •* 

785 ■' E 1 N E R U NDEMEITER 
790 ' 

795 •* + EXTRA L EBEN 
P.00 •* 

885 * 

810 LEV-LEV*i 

815 IF IEV=2 THFH Yl»3*Y2“6 : Y3=16=Y4=24=Y5*4*GOTO 845 
820 IF LEV-3 THEN Yl«9’Y2*18‘Y3=2Z=Y4-4. 

825 IF LEV-4.THEN Yl»6»Y2*2*Y3*24»Y4-4 
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230 IF LEV-5 THEN Yl-13»Y2«25* Y3“26=Y4-4 

335 IF LEV ~6 THEN VI=1 : Y2=2 : Y3~1 1 • Y4=24• L.EV= 0 .-LIV=LIV +1 

840 Y5=? 

IMPRINT »' ,V ^GaTn 5 6p :IHK 6 ' Y3sINK ?,V5:IHK 8, Y4 *SOSC+CBON RND BON >8 > * LOCATE 1, 

350 RON “4000 J .^ 

355 * 

860 •' HAL OF FflMF 
365 .* 

870 •’ I N I T I R L ISIFPF N 
R?5 * - 

880 DATA 17175, "OLIVER '« 

835 DATA 9450,"INGO « 

890 DRTfl' 6725,"HORST 

895 DHTR 4900,“GERALD « 

900 DRTR 1975,"NORBFPT « 

905 DRTR 0.000," » 

918 RESTORE 880 

915 FOR 2-1 TO 6 *READ H 8 C<Z):RERD HI$<Z*lfi)*NFXT 
928 RETURN 
925 * 

930 * IN HRLL OF FAME 
935 * 

940 f EINTRRGEN 
945 J 
958 CLS 
955 PEN 6 

960 PRINT “ 8 IE HRBEN EINFS»:PRINT 

965 PRINT " DER HOECHSTEN" : PRINT 

970 PRINT » ERGEBNISSE ERZIELT"»PRINT»PRINT 

975 PRINT " BITTE TRRGEN SIE":PRINT 

980 Print « ihren nrmen eins"*print*print 

985 NfiM**"" 

990 IMFU$=""sTNPU$-INKEY* : IF INPU*»"" THEN 980 

jj^jj IE 0 INPU^CHR$<3> OR INPU*«CHR»C9> OR INPU«*CHR*a 1) OR INPU*-CHR*< 10> THEN G 
1000 IF LEN<INPU$>~0 THEN 998 

830< INPU* >=13 THEN NRMffeMAMS+SPRCEStf 16-LEW NflMS ? 5 s GOTO 10*5 

NRMS M 1 RND LENC NRM$ »0 IF INPU**CHR*< 12? > THEN NRm5»LEFT¥< NRM*, LE 

Ills I HRM ^ THEN NRW*=LEFT*< NRM*, 16 > = GOTO 990 

1020 LOCATE 2,13 ; PRINT NRM*SPACED 2 '*■ GOTH' *** 

1025 LOCATE 2,13 s PRINT HAMS '‘ 

LEN-rHRm K16 THEN NflM$sNRMS+SPRCE$< 16~f FN< NfiMS^ 

5f“ 5 rJ J2 1 STEP " 1:IF SOHSCCV) THEN HSCX V+l )*H3Ctf V ^ HI*f V+l. 16 ^HI^‘ V, 16 

* : h set v >-sv : h i#< v, 1 6 >-mm ■ next hit., • * -. 

1040 GOTO 740 
1045 ' 

1058 •• IJSER-DEF-I HE D 
1055 ■* 

I860 •* GRAPHICS 
1065 •' 

1070 •' 

1075 ■* 

1080 - 1 O' - B E FT < CHR$ 191-1.94 > 

1085 ' 

1090 SYMBOL 191,3,7.19.9,2?. :75. 25 , 

1095 SYMBOL 192,192,224j 144 J 44 T184~15?, 152.126 

1100 SYMBOL 193,27,27,12,15, 7 .2.2" 1.4 . 

1105 SYMBOL. 194,248,184,112.240.234.J92.fi4.lt? 

1118 ' • llt ~ 

1115 •' S C H L fl N G E N < CHR$ 19R-19fn 
1120 ' 

1125 SYMBOL 195,7,29.?. 7 . 34 . 0 .?.15 
1130 SYMBOL. 196,128,224,240,152.8'. 24.240.224 
f135 SYMBOL 197,24,16,24,15-7.R.15.31~ ’ 

1.140 SYMBOL 198,0,0,0,224.240.24.240 .294 
1145 RETURN • . .. 
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Ein neuerlicher Beweis fur die hohe Qualitat der Dennison- 
Diskette „Elephant-Memory-Systems“ TM 

Als eines der wichtigsten Prufungs- die ein angesehenes Software-Haus phant-Memory-Systems"-Diskette 

kriterien fur die Qualitat einer Diskette fur seine Wahi des geeignetsten Dis- wieder einma! ihre herausragenden 

gilt unter Fachteuten die Antwort auf kettentyps zu Beginn des Jahres positiven Eigenschaften objektiv und 

die Frage, wie oft sich ein Disketten- 1985 durchfuhrte, uberraschte die im Vergleich mit sogar preislich hoher 

typ formatieren laBt. Als gutes Ergeb- EMS-Diskette neben einer anderen, angesiedeiten unter Beweis. Der Al¬ 
ois wird hierbei angesehen, wenn ein nicht in der Bundesrepublik erhaltli- leinvertrieb dieser hochwertigen Dis- 

bestimmter Diskettentyp eine funf- ehen, die Tester mit der sensationel- ketten in der Bundesrepublik 

bis siebenmalige Formatierung er- ien Eigensehaft, sich bis zu dreiBig- Deutschland und Westberlin erfolgt 

moglicht, ohne die geringste Ausfall- mal problem- und fehlerlos formatie- uber die MARCOM Computerzube- 

erscheinung zu zeigen. ren zu lassen! hor GmbH in Hannover, Tel. 0511 / 

In einer aufwendigen Versuchsreihe, Mit diesem Ergebnis stefit die „Ele- 64 74 20. 


phant- M emory- S ystems"- D iskette 
wieder einma! ihre herausragenden 
positiven Eigenschaften objektiv und 
im Vergleich mit sogar preislich hoher 
angesiedeiten unter Beweis. Der Al- 
leinvertrieb dieser hochwertigen Dis¬ 
ketten in der Bundesrepublik 
Deutschland und Westberlin erfolgt 
uber die MARCOM Computerzube- 
hor GmbH in Hannover, Tei. 0511 / 
64 74 20. 


★ Kleinanzeigen ★ Kleinanzeigen ★ Kleinanzeigen ★ 


Biete an Software 


CPC-464 !!! 12 gute Spielprogramme auf 
Kassette, kerne Raubkopien, DM 20,- an 
Postscheck Hamburg 404576-207 Oder 
Schein in Brief an Hans-J. Behrend, Neu- 
stadt 3, 3550 Marburg. _ 

VC 20 Suche Basic-Literatur und Program¬ 
me fur VC 20. Helmut Huter, Obertor 54, A 
6628 Viis/Osterreich. 



Tausche VC-64 Spiizenprogramme. 
Tauschlisten an: Jurgen Hod!, Muggentha- 
ierStr. 10, 8391 Tittling. _ 

CPC-464 !!! Veriangerurtgs-Kabel zwi- 
schen Monitor und Keyboard mit passen- 
den Steckern nur DM 20,- an Postscheck 
Hamburg 32572-201 Oder Schein an H. 
Behrendt, Marrensberg 2, 2390 Flensburg, 


Suche C 64, gut erhaiten, zahle bis 400,- 
DM Oder Tausch gegen VC-20 + 6 KK + 
Superprogramme, A. Dinsch, Berliner Str, 
17, 5980 Werdohl. 

Verschiedenes 

• C 64 Haiio Faulpelze C 64 

• Wir tippen ihre C-64-Programme fur 2 
Pfg. die Zeiie ab. Schicken Sie Prg. an: 
Matthias Meyer, Martin-Luther-Str. 4, 2732 
Sittensen. Tel. 0 42 82/21 30 


Auftrag fur Gelegenheitsanzeigen in „Compute mit 


An „Compute mit 
Tronic-Verlag 
Postfach 
3444 Wehretai 1 


Name und Adresse. 


Unterschrift 


Ich zahle sofort nach Recbnungserhalt. 


Unter der Rubrik „Kleinanzeigen"- !ch wunsche folgenden Text zu veroffentlichen: 
veroffentlichen wir Gelegenheits- , , , , < , . . ,■ . . . . . . . 

anzeigen fur Verkaufsangebote, 1 — 1 — 1 — 1 ——— LJ ————— L ~ 

Kauf- und Tausehgesuche, Kontakt- 1 1 11 II _I_I_1 !_1_1_i_1_1—L 

aufnahme bzw. Erfahrungs- | g | | | | i { | | m I II I 

3USlaUSCh USW ’ M M II I I I I I M I I I 

Aktuell: I 1 I 1 I I I I I I I I 1 I I.L 

Unsere Preise fur „Kleinanzeigen": . . . . , . , , , , , , ( , . , 

Jede Kleinanzeige nur 10,- DM j--j—|j—j—| | | | -J- J | J. j ■ 

Jede gewerbliche I I I I M ! I M II I I 1 I 

Gelegenheitsanzeige nur 15,- DM 

(durfen nicht unter Chiffre erschei- LJ—LJ —1— ! —1— I — LJ —I— I — U —I— L 


Kleinanzeigen 
jetzt noch 
reiswerter 


Zutreffendes ankreuzen 


suche □ Software 
biete an □ Software 


suche □ Hardware 
biete an □ Hardware 


□ Tausch 


□ Verse h. 


□ Kontakte □ Chiffre 
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Farbbildschirm 
„CTM 640“ 


Die Erfahrung von Schneider in der 
Produktion von Farb-TV-Geraten hat 
zu einem kompakten, zuverlassigen 
Farbbildschirm fur den „CPC464“- 
Computer gefuhrt. 

Nur wenn der Bildschirm so nahe als 
moglich mit der Elektronik verbunden 
ist, die die Biidschirmanzeige steuert, 
wird die bestmogliche Leistung der 
hohen Bildschirmauflosung erreicht 
Das giit ebenfafls fur die Graphik und 
Farbmoglichkeit des 1J CPC464“. 

Mit dem „CTM 640“ wird jede ein- 
zeine Farbeauf dem Bildschirm direkt 
vom Computer gesteuert. Dadurch 
entfallen alie unnotigen Zwischen- 
schritte, die ein unscharfes Bild er- 
zeugen'konnten. Sie bekommen im- 
mer die besten Biider und brauchen 
sich nicht wie beim Fernseher urn die 
Feineinstellung zu kummern. Und es 


gibt keinen Streit, wenn jemand fern- 
sehen will, ein anderer aber zur glei- 
chen Zeit den Computer braucht. 
Der „CTM 640“ ist mit zuverlassigen 
„ S oli d-S tate“-Bausteinen ausgerO- 
stet. Die „schnelle Aufwarmung“, hel- 
le scharfe Anzeige und neueste Bild- 
schirm-Technologie mit in-line Elek- 
tronenstrahi-Regelung sorgen fur 
hohe Bildqualitat, 

Mit dem Tragegriff transportieren Sie 
das System leicht und sicher. Die 
Stromversorgung im Bildschirmge- 
hause reduziert die Anzahl der Kabel- 
verbtndungen auf ein einziges Netz- 
kabel und ein Verbindungskabel zwi- 
schen Tastatur und Bildschirm. Da- 
mit ist auch der Daten-Recorder an- 
geschlossen. 

Vergleichen Sie das mit anderen Pro- 
dukten! 


Das folgende BAS I C-Demonstra- 
tionsprogramm verdeutlicht insbe- 
sondere die Farbgraphikmogliehkei- 
ten des SCHNEIDER CPC 464; 

10 MODE 0: INK 0,2 x INK 
1,24 : PAPER 0 

20 PEN 1 : FOR B = 0 TO 26: 
BORDER B 

30 LOCATE 3,12: PRINT 
“Rahmenfarbe: “;B 
40 SOUND 4,(40-B) 

50 FOR T = 1 TO 500 : NEXT 
T : NEXT B : CLS 
60 FOR P = 0 TO 15 : PAPER 
P : PEN 5: PRINT 
“Hintergrundfarbe: “;P ; PRINT 
70 FOR T = 1 TO 1000 : NEXT 
T : CLS : NEXT P 
80 GOTO 10 


BASIC-Programme zur graphischen 
einer linearen Funktion: 


Darstellung 


Im Vergleich finden Sie bier ein kur- 
zes Basicprogramm zu graphischen 
Darstellung einer linearen Funktion 
fur den Schneider CPC 464 und den 
Commodore 64. Hier konnen sie 
selbst testen und vergleichen. 


SCHNEIDER CPC 464 

10 A = 50 
20 B - .7 
30 PLOT 10,390 
40 DRAW 10,10 
50 DRAW 630,10 
60 FOR X = 10 TO 630 
70Y = A + B*X! 

80 IF Y<0 OR Y> 389 THEN 100 
90 PLOT X.Y 
100 NEXT X 
110 END 


Commodore 64 

1000 V = 53248 

10 A = 50 

1010 POKE V+. 17,59 - 

20 B - .7 

1020 POKE V+24,24 

30 GOSUB 1000 

1030 FOR 1 = 1024 TO 2023 

40 FOR X = 0 TO 200 

1040 POKE 1,14 

50 Y - 130 

1050 NEXT 1 

60 GOSUB 2000 

1060 FOR J - 8192 TO 16383 

70 NEXT X 

1070 POKE 1,0 

.80 FOR Y = 20 TO 150 

1080 NEXT 1 

90 X=0 

1090 RETURN 

100 GOSUB 2000 

2000 XK = -8 * INT{X/8) 

110 NEXT Y 

. 2010 YK = 320 * INT(Y/8) + 

120 FOR X = 0 TO 200 

INT{ (Y/8-1 NT{Y/8)) * 8) 

130 Y = 13Q-A-B * X 

2020 EX = 2f(7-INT((X/8- 

140 IF Y <0 OR Y> 199 THEN 160 

INT(X/8)) * 8)} 

150 GOSUB 2000 

2030 S = 8192+XK+YK 

160 NEXT X 

2040 POKE S.PEEK(S) OR EX 

170 END 

2050 RETURN 
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Spiele-Kassetten 

jetzt auch uber den 
Zeitschriftenhandel 
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Ihr Erfolgsprogramm - 
aus dem Tronic-Verlag 


i commobom & missioiR 

:\'>.v SV-x-N'>> vvy ^ 


Compute mit 

monatlich 
Format A4 

2,80 DM 


CPU 

monatlich 
Format A4 

5,50 DM 


Homecomputer 

zweimonatlich 
Format A4 

6,- DM 


Spitzenprodukte 

fur den wachsenden Markt 
der Heimcomputer-Anwender 


Computronic 

zweimonatlich 
Format A4 

6,50 DM 


Spiele-Kassetten: 

) Commodore 64 
j VC-20, Atari, 
j TI-99, ZX-Spectrum, 

H i Laser 2001, 

1 Schneider CPC 464 
.'' Je 19,90 DM 


Tronic-Verlag GmbH • Postfach 41 • 3444 Wehretal 1 
Telefon 0 56 51 - 4 06 43 / 4 06 93 


























